Help for this page
sub transpose { my @array = @_; my $max_j = max map $#$_, @array; ... } return @trans; }
sub transpose { my @array = @_; ... } return @trans; }