Und das "my @Zeilen = ();" ist dann mit der Version obsolet.
Und ich würd mir vor allem als Perl-Anfänger garnicht so groß angewöhnen $_ übermäßig zu benutzen.
Es geht z.B. auch ein: while (my $line = <$countfile>)
Und statt substr kann man in Perl auch if ($line =~ /^01L/) schreiben. Je nachdem was einem besser gefällt. Ich benutz z.B. so gut wie nie substr. Aus dem einfachen Grund, dass der wirklich in fast jeder Sprache eine andere Syntax hat.