or download this
my @array = map scalar reverse, glob("{1,2,3,4,5,6,7,8}{a,b,c,d,e,f,g,
+h}");
or download this
#23456789_123456789_123456789_123456789_123456789_
map$_=reverse,<{1,2,3,4,5,6,7,8}{a,b,c,d,e,f,g,h}>
# A different try
map{my$a=$_;map$_.$a,'a'..'h'}1..8 # 34