while( my ( $k, $v ) = each %hash ) {