- Added solutions by Roger Bell_West.

- Added solutions by Humberto Massa.
- Added solutions by PokGoPun.
- Added solutions by Dave Jacoby.
- Added solutions by Cheok-Yin Fung.
- Added solutions by W. Luis Mochan.
- Added solutions by Packy Anderson.
- Added solutions by Robert DiCicco.
- Added solutions by Oliver Oviedo.

2 files changed, 56 insertions, 0 deletions

diff --git a/challenge-246/oliver-oviedo/perl/ch-1.pl b/challenge-246/oliver-oviedo/perl/ch-1.pl
new file mode 100644
index 0000000000..cdc093bfa8
--- /dev/null
+++ b/challenge-246/oliver-oviedo/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+#CHALLENGE #246
+
+#Write a script that outputs six unique random integers from the range 1 to 49.
+
+use strict;
+use warnings;
+
+my $randomNumber = int(rand(50));
+my @randomArray;
+
+for (my $i; $i <= 6; $i++){
+    my $randomNumber = int(rand(50));
+    if (!exists($randomArray[$randomNumber])){
+        push (@randomArray,$randomNumber);
+    }
+    print "@randomArray\n";
+}
diff --git a/challenge-246/robert-dicicco/perl/ch-1.pl b/challenge-246/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..6cfb0704c2
--- /dev/null
+++ b/challenge-246/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+=bein pod
+-------------------------------------
+AUTHOR: Robert DiCicco
+DATE  : 2023-12-05
+Challenge 246 6 Out of 49  ( Perl )
+-------------------------------------
+=cut
+
+use v5.38;
+
+my %seen = ();
+my @sorted = ();
+my @unsorted = ();
+
+my $cnt = 0;
+while(1) {
+    my $num = int(rand(100));
+    next if exists($seen{$num});
+    $seen{$num} = 1;
+    if ($num > 0 and $num <= 49) {
+        push(@unsorted,$num);
+        $cnt++;
+        last if $cnt == 6;
+    }
+}
+@sorted = sort { $a <=> $b } @unsorted;
+say "@sorted";
+
+#-------------------------------------
+#SAMPLE OUTPUT
+#perl Sixoutof49.pl
+
+# 3 8 17 23 30 31
+#-------------------------------------
+
+