my @arr = ('a'..'z');
my @out;
push @out, pop @arr for 0..$#arr;
print "@out\n";

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