use Algorithm::Loops "MapCarU";

my @data = MapCarU { [@_] } ['1','2','3'],['a','b','c'],['x','y','z'];

use Data::Dumper;
$Data::Dumper::Terse=1; $Data::Dumper::Indent=0;
print Dumper \@data;
__END__
[['1','a','x'],['2','b','y'],['3','c','z']]
[download]