Während du mit der Schleife über die Datei iterierst und bei jedem Schleifendurchlauf eine Zeile mit splice entfernst, wird auch bei jedem Durchlauf die Datei neu geschrieben. Da Tie::File die Datei in-place bearbeitet (also nicht wie im zweiten Beispiel Zeile für Zeile in eine zweite Datei ausgibt), ist dieses ineffiziente Vorgehen notwendig. Man könnte das vielleicht durch Caching vermeiden... weiß grad nicht, ob so etwas möglich ist, das musst Du dem perldoc entnehmen.

Willkommen im Forum übrigens. Bitte denke zukünftig daran, deinen Perlcode zu formatieren wie ich es jetzt in Deinem Post gemacht habe (Du siehst den Quelltext, wenn Du Deinen Beitrag bearbeitest), so geht die Einrückung auch nicht verloren.