@a = 'a'..'z';;
unshift @d, $_ for @a;;

print @d;;
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

print @a;;
a b c d e f g h i j k l m n o p q r s t u v w x y z