$ perl -e ' my @arr = ('a'..'z');
> my @result;
> foreach my $thing (@arr) {
> unshift @result, $thing;
> }
> print "@result";
> '
z y x w v u t s r q p o n m l k j i h g f e d c b a