foreach my $line (<$filehandle>)

##</code><code>##

while (my $line = <$filehandle>)