Select Code to Download

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

sub transpose {
    my @array = @_;

...
    }
    return @trans;
}