ich würde nicht mit Tie::File arbeiten, sondern die Datei von Hand durchgreppen und
aus der Schleife rausgehen, sobald die Zeile gefunden wurde.