while (<$wordhandle>) {