Tie::File seems to be rather slow on large files. I tried the Tie::File and (open file, read in all lines, pop, write back) variants on a ~5M file, and the second was about 10 times faster.