while( my( $key, $val ) = each %hash ) {
    ## ...
}