1st commit on 108_perl

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-108/stuart-little/perl/ch-1.pl b/challenge-108/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..a8fe97b682
--- /dev/null
+++ b/challenge-108/stuart-little/perl/ch-1.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script>
+
+use bignum qw/hex/;
+
+my $x=5;
+say qq|The variable \$x has value $x and address ${\ do{hex(sprintf("%p", $x))}}.|;
diff --git a/challenge-108/stuart-little/perl/ch-2.pl b/challenge-108/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..7d3291d0c3
--- /dev/null
+++ b/challenge-108/stuart-little/perl/ch-2.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script>
+
+say "1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147";