my $spaltenzahl = @{$array[0]}

my $spaltenzahl = 0;
foreach my $zeile (@array) {
    if (scalar @$zeile > $spaltenzahl) {
        $spaltenzahl = @$zeile;
    }
}

for(0..scalar(@array)-1){
  $array2dim[$_]->[$spalte] = $array[$_];
}

$array2dim[$zeile] = [@array];

#@zarray ist der schon vorhandene 2dim. Array
#@sarray enthält die neue Spalte
#$snr ist die Nr. der Spalte, in die die Daten aus @sarray eingefügt werden sollen

for (my $i=0;$i<=$#sarray;$i++) {
    ${$zarray[$i]}[$snr] = $sarray[$i];
}