tr/\r\n//d for my @words = <$fh>;