while (<$wordhandle>) {

##</code><code>##

while (my $deadstring = <$wordhandle>) {