Help for this page
@a = 'a'..'z';; @b = sub{ map pop, @_ }->( @a );; print @b;; 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
@c = map pop @a, @a;; print @c;; 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