while ( $key = keys %uword ) {