my $words = <$fh>;