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