Help for this page
while (<$wordhandle>) { $deadstring = chomp; ... $wordcount++; }
while (<$wordhandle>) { chomp; $hashlist{$_} = 1; $wordcount++; }