Added ch-2.pl and ch-2.p6

2 files changed, 14 insertions, 0 deletions

diff --git a/challenge-040/ruben-westerberg/perl/ch-2.pl b/challenge-040/ruben-westerberg/perl/ch-2.pl
new file mode 100755
index 0000000000..39f3f68998
--- /dev/null
+++ b/challenge-040/ruben-westerberg/perl/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my @a=(10,4,1,8,12,3);
+my @i=(0,2,5);
+
+$,=" ";
+print sort {$a <=> $b} @a[@i];
diff --git a/challenge-040/ruben-westerberg/raku/ch-2.p6 b/challenge-040/ruben-westerberg/raku/ch-2.p6
new file mode 100755
index 0000000000..89b02ab4ed
--- /dev/null
+++ b/challenge-040/ruben-westerberg/raku/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;