while (my $value = <$fh>)