apt -получить --исправить -неработающая установка с ошибкой

$ perl -F'~' -lane '
    $A[$_][$.-1] = $F[$_] for 0.. $#F;}{
    print join $/, @{$A[$_]} for 0.. $#A;
' input.file

Собирать и сохранять столбцы в многомерном массиве таким образом, чтобы первый индекс относился к номеру столбца, а второй — к номеру строки. Затем в конце выполните цикл по столбцу num и напечатайте каждый элемент массива, разделенный символом новой строки.