$line = <FILE>; # reads one line from FILE;
@lines = <FILE>; # slurps up the whole thing.
for $line (<FILE>) ... # which of the above applies?

##</code><code>##

for $line (@lines)