1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-042/fabrizio-poggi/perl/ch-1.pl b/challenge-042/fabrizio-poggi/perl/ch-1.pl
new file mode 100644
index 0000000000..9cf656fb89
--- /dev/null
+++ b/challenge-042/fabrizio-poggi/perl/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+ 
+my $x;
+my $y;
+my $mod;
+my $oct;
+my @array;
+ 
+foreach $x (0..50){
+    print "Decimal $x = ";
+    if ($x < 8) {
+        $oct = $x;
+    } else {
+        do {
+            $y = int($x / 8);
+            $mod = $x % 8;
+            push (@array, $mod);
+            $x = $y;
+            } while ($x > 8);
+        push (@array, $x);
+        $oct = reverse @array;
+    }
+print "Octal $oct \n";
+@array=();
+}