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