Select-Zip.ps1

param (
    [Parameter(Mandatory = $true, ValueFromPipeline = $true)]
    [object[]] $Arrays,

    [switch] $Split,

    [ValidateSet("Longest", "Shortest")]
    [string] $OutputMode = "Shortest"
)

begin {
    $zipped = [System.Linq.Enumerable]::Zip($Arrays[0], $Arrays[1], [Func[Object, Object, Object[]]]{ @($args[0], $args[1]) })

    # $longest = $Arrays | Sort-Object Length -Descending | Select-Object -First 1
    # $null * ($Arrays.Length - 1) + $longest | ForEach-Object {

    for ($i = 2; $i -lt $Arrays.Length; $i++) {
        $zipped = [System.Linq.Enumerable]::Zip($zipped, $Arrays[$i], [Func[Object, Object, Object[]]]{ $args[0] + @($args[1]) })
    }
}

process {
    $zipped | ForEach-Object {
        $obj = @{}
        for ($j = 0; $j -lt $_.Length; $j++) {
            $obj["Value_$j"] = $_[$j]
        }

        $Split ? [pscustomobject]$obj : , $_
    }
}