edit: Nachtrag der Daten war beim Schreiben der Antwort noch nicht erfolgt ;o)

Mir scheint da ein Logikproblem zu existieren.

Wenn Du eine Zeile ausgeben lassen willst, wenn ein Kriterium zutrifft, warum springst Du mit 'next' zur nächsten Zeile? Du weißt, was 'next' macht?

perldoc -f next

Die beiden Kriterien, die Du aufführst, schließen sich gegenseitig aus. Das ist so gewollt?

Die Einrückung des Codes sollte dringend überarbeitet werden; siehe perlstyle.