Select Code to Download

while( my( $key1, $val1 ) = each( %hash1 ) ) {
    my( $key2, $val2 ) = each( %hash2 );
    # do something with $key1, $key2, $val1, and $val2
}

while( my( $key, $val1 ) = each( %hash1 ) ) {
    my( $val2 ) = $hash2{$key};
    # Do something with $key, and $val1, $val2.
}