map{print@a,$_,$/for$x=pop@a,lc$x}@a=A..Z