Select Code to Download

my @arr = ('a'..'z');
my @out;
...
@arr = ('a'..'z');
@arr[$_,-$_-1] = @arr[-$_-1,$_] for 0..$#arr/2;
print "@arr\n";