while( my( $kref, $vref ) = \( each %{ $href } ) ) { 
    print $$kref, ' => ', $$vref; 
}