while (<$wordhandle>) {
  chomp;
  $hashlist{$_} = 1;
  $wordcount++;
}