#!/usr/bin/perl
use strict;
use warnings;

my @output;
my $col = 0;
while ( my $line = <> ) {
    my @zahlen = split /\s+/, $line;

    my $row = 0;
    for my $wert ( @zahlen ) {
        $output[$row++][$col] = $wert;
    }
    $col++;
}

for my $row ( @output ) {
    for my $wert ( @$row ) {
        print $wert || 'N/A', ' ';
    }
    print "\n";
}