while( my( $key, $value ) = each %hash ) {
...