my $anzahl_faelle_mandant = 0;
my $anzahl_faelle_gesamt = 0;
$zeile = 0;

open($FH, "<$FHOUTAUSZAHLUNG") or die "open file: $!";
while($line = <$FH>)
{
        $zeile++;
        chomp ($line);
        while ($line !~ /\s\sS U M M E N B L A T T/)
        {
                # falls die Zeile einen neuen Fall darstellt (BANK BLZ (8stellig))
                if ($line =~ /BANK\s\d\d\d\d\d\d\d\d/)
                {
                        $anzahl_faelle_mandant++;
                        $anzahl_faelle_gesamt++;
                        #print $line;
                }
                $line = <$FH>;
                chomp ($line);
                $zeile++;
        }
        #SUMMENBLATTBERECHNUNG
        print $zeile . ": " . $anzahl_faelle_mandant . "\n";
        #alle Mandantenzähler wieder auf 0 setzen
        $anzahl_faelle_mandant = 0;
        
}
print "gesamt: " . $anzahl_faelle_gesamt;
close $FH;

Use of uninitialized value $line in scalar chomp at H:/summenpruefung.pl line 549, <$FH> line 16991.
Use of uninitialized value $line in pattern match (m//) at H:/summenpruefung.pl line 550, <$FH> line 16991.
Use of uninitialized value $line in pattern match (m//) at H:/summenpruefung.pl line 542, <$FH> line 16991.