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