That line does not change the @lines array or the tied file. That just changes the @tmp array. Tip #4 from Basic debugging checklist:

use Data::Dumper;
print Dumper(\@tmp);
print Dumper(\@lines);
[download]