E:\>228837.pl
PRINTING map2{ print "$a $b"; } @array; =>A BC DE FG HI J
PRINTING map2{ print "$a $b"; } qw[A B C D]; =>A BC DE FG HI J