add solutions to week 34 task 1 in perl 5 and raku

2 files changed, 55 insertions, 0 deletions

diff --git a/challenge-034/steven-wilson/perl5/ch-1.pl b/challenge-034/steven-wilson/perl5/ch-1.pl
new file mode 100644
index 0000000000..a7497f7dbe
--- /dev/null
+++ b/challenge-034/steven-wilson/perl5/ch-1.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+# Perl Weekly Challenge Week 034 Task 1
+# Write a program that demonstrates using hash slices and/or array
+# slices.
+
+use strict;
+use warnings;
+use feature qw/ say /;
+
+# Array slices
+my @all_staff =
+  qw/ fry professor leela bender amy hermes zoidberg nibbler zapp kif/;
+
+say "@all_staff\n";
+
+# slicing the first, third and fifth elements from an array
+say "@all_staff[0, 2, 4]";
+
+# slicing a range of elements from an array
+say "@all_staff[1..4]";
+
+# the first and last element from an array counting from the end
+say "@all_staff[0,-1]";
+
+# picking out elements in different order
+say "@all_staff[4,1,0]";
+
+# Hash slice
+my %staff_ages = (
+    fry       => 10025,
+    professor => 92,
+    leela     => 28,
+    bender    => 12,
+    amy       => 23,
+);
+
+my @staff = qw/ fry professor amy /;
+
+say "\nStaff present were: @staff";
+say "Their ages were: @staff_ages{ @staff }";
+
diff --git a/challenge-034/steven-wilson/perl6/ch-1.p6 b/challenge-034/steven-wilson/perl6/ch-1.p6
new file mode 100644
index 0000000000..c8e415648e
--- /dev/null
+++ b/challenge-034/steven-wilson/perl6/ch-1.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+#
+# Perl Weekly Challenge Week 034 task 1: Raku array slice
+
+my @numbers = <10 20 30 40 50 60 70 80 90>;
+
+my ( $first_number, $last_number ) = @numbers[0, *-1];
+
+put "First number in the array is $first_number";
+
+put "Last number in the array is $last_number";
+ 
+put "First 4 numbers in the array are: @numbers[0 .. 3]";
+