johngg@shiraz:~/perl > perl -Mstrict -Mwarnings -E '
my @arr = ( q{a} .. q{z} );
my @rev = map pop @arr, @arr;
say qq{@arr};
say qq{@rev};'

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