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