while (<$fh>) { ... }

##</code><code>##

while (my $line=<$fh>) { ... }