Ein paar allgemeine Anmerkungen:

*) Benutze in Deinem Skript am Besten use strict;

*)


Verwende am besten das open mit 3 Parametern:
open(FH,"<","lshal.txt") or die "Datei nicht gefunden";.
Das "<" gibt an, dass die Datei gelesen wird.


Die explizite Zuweisung an $_ brauchst Du nicht. Es reicht while(<FH>)



Der Fehler wurde schon oben genannt. Aber die Zeile ist auch ohne den Fehler wirkungslos. Wahrscheinlich wolltest Du die Zeile ueberspringen wenn es eine Leerzeile ist, oder? Dann muesste es
next if(/^$/); heissen.

Bei Dir hat es keine Auswirkungen wenn es eine Leerzeile ist.
Wenn man bei $_ testet, dann kann man das $_ =~ weglassen (man kann es aber auch hinschreiben, waere dann halt next if($_ =~ /^$/)).