Select Code to Download

sub zipn {
    local $[ = 0;
    [
...
        ) :
        maximum(maximum($_[0], $_[1]), @_[2..$#_]);
}

zipn([1,2,3], [4,5,6], [7,8,9,10])

[1,4,7,2,5,8,3,6,9,'','',10]