{sco}>./228837.pl
PRINTING map2{ print "$a $b"; } @array; =>
A B
C D
E F
G H
I J

PRINTING map2{ print "$a $b"; } qw[A B C D]; =>
A B
C D
E F
G H
I J