das liegt daran, dass wenn du mit einem foreach über einen array iterierst, der wert in $_ am ende der schleife wieder zurück in den array geschrieben wird. das ist toll, wenn man den array verändern will, hier aber eher hinderlich.
am einfachsten währs, wenn du am anfang der for(each) schleife so etwas wie my $line = $_; einzufügen würdest, und dann $line veränderst.\n\n

<!--EDIT|Taulmarill|1124809963-->