http://qs321.pair.com?node_id=643853


in reply to How to swap rows with columns?

Yet another module:
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']]