1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-078/anton-fedotov/perl/ch-2.pl b/challenge-078/anton-fedotov/perl/ch-2.pl
new file mode 100755
index 0000000000..7cb8506fe2
--- /dev/null
+++ b/challenge-078/anton-fedotov/perl/ch-2.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use v5.30;
+
+my @A = (7, 4, 2, 6, 3);
+my @B = (1, 3, 4);
+
+for (@B) { say join ' ', (@A[$_..$#A],@A[0..$_-1]) };