You were almost there:

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