use Algorithm::Loops qw( MapCarE );

my @one = qw( A B C D );
my @two = qw( E F G H );
my @tre = qw( W X Y Z );