Select Code to Download

while (<$wordhandle>) {
$deadstring = chomp;
...
$wordcount++;

}

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