foreach (my $value = <$fh>)

##</code><code>##

while (my $value = <$fh>)