ein paar allgemeine Hinweise:

*) Du solltest unbedingt [tt]use strict[/tt] verwenden

*) Du solltest use warnings verwenden.

*) Ein Element eines Arrays wird so angesprochen: $array[$index]. Wie Du vielleicht siehst, wurde das @ durch ein $ ersetzt.

*) Du solltest die 3-Arg-Form von open verwenden. Also aus:
das hier machen:

*) Du solltest Fehlerbehandlung machen:

*) Du machst einen numerischen Vergleich ($line == 0), aber in $line steht ja meistens ein String. Deshalb besser den String-Vergleich verwenden: $line eq $irgendwas.