Ein paar allgemeine Tipps:

*) benutze use strict;
*) mache Fehlerbehandlung, also open(my $fh,"<$file") or die $!
*) innerhalb von if-Abfragen macht man keine Zuweisung, sondern überprüft einen Wahrheitswert. Um Zahlen zu vergleichen verwendet man ==, für Buchstaben und Zeichenketten eq. Also if($var eq 'string'){\n\n

<!--EDIT|renee|1123060212-->