while (<$wordhandle>) {
$deadstring = chomp;
$hashlist{$deadstring} => 1;

$wordcount++;

}

##</code><code>##

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