You want to change:
while (<$wordhandle>) { [download]
To:
while (my $deadstring = <$wordhandle>) { [download]
In reply to Re: Attempting to fill a hash by jwkrahn in thread Attempting to fill a hash by TwistedTransistor