Lies' doch die Datei mit Tie::File in ein Array. Dann hast Du auch keine Probleme mit sehr großen Dateien. Und Du kannst dann einfach in dem Array mit

die nächste Zeile überprüfen. Mußt im Skript natürlich noch darauf eingehen, daß das nicht in der letzten Zeile geschehen darf. Also

oder so.