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

$wordcount++;

}