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']]