1 files changed, 25 insertions, 0 deletions
diff --git a/challenge-040/anton-fedotov/perl5/ch-2.pl b/challenge-040/anton-fedotov/perl5/ch-2.pl
new file mode 100755
index 0000000000..9d03c94de5
--- /dev/null
+++ b/challenge-040/anton-fedotov/perl5/ch-2.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+
+##################################################
+#      Perl Weekly Challenge 040, Chapter 2      #
+##################################################
+
+use strict;
+use warnings;
+use v5.10;
+
+my @numbers = (10, 4, 1, 8, 12, 3);
+my @indices = (0, 2, 5);
+
+say join ' ', @numbers;
+
+my @arr;
+push @arr, $numbers[$_] for @indices;
+@arr = sort {$a <=> $b} @arr;
+
+for (@indices) {
+    state $i = 0;
+    $numbers[$_] = $arr[$i++];
+}
+
+say join ' ', @numbers;