2 files changed, 10 insertions, 0 deletions
diff --git a/challenge-040/ruben-westerberg/perl6/ch-1.p6 b/challenge-040/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..4a0ee4854f
--- /dev/null
+++ b/challenge-040/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl6
+
+my @aoa=( <I L O V E Y O U>, <2 4 0 3 2 0 1 9>, <! ? £ $ % ^ & * >);
+my @indexes=@*ARGS==0??(2,3)!!@*ARGS;
+put $_ for @indexes.map({@aoa[*;$_].join: " "})
diff --git a/challenge-040/ruben-westerberg/perl6/ch-2.p6 b/challenge-040/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..89b02ab4ed
--- /dev/null
+++ b/challenge-040/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl6
+my @a=(10,4,1,8,12,3);
+my @i=(0,2,5);
+
+put @a[@i].sort;