my @rows = map {my $i = $_; [$col1[$i], map {$_->[$i]} @$otherColumns]} 0 .. $#col1;