One way of doing it more efficiently:

    while ($newline = <HANDLE>) {}
[download]

It's very inefficient to first read in all the lines into an array, and then setting $newline to each entry of the array, ending at the last.

If the file is big, you might want to read backwards from the end.

Abigail