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 );

##</code><code>##

my @mda = MapCarE { [@_] } \( @one, @two, @tre );

##</code><code>##

require Data::Dumper;
print Data::Dumper->new([\@mda],['@mda'])
    ->Indent(1)->Terse(1)->Dump();

##</code><code>##

[
  [
    'A',
    'E',
    'W'
  ],
  [
    'B',
    'F',
    'X'
  ],
  [
    'C',
    'G',
    'Y'
  ],
  [
    'D',
    'H',
    'Z'
  ]
]