$. bezeichnet nach perldoc <Ziat>Current line number for the last filehandle accessed.</Zitat> also die Zeilennummer, der zuletzt eingelesenen Datein ,nicht die Zeilenummer des laufenden Skripts.

Du musst __LINE__ verwenden. perldata