%hash3 = %hash1;
    @hash3 {grep {exists $hash2 {$_}} keys %hash1} =
    @hash2 {grep {exists $hash2 {$_}} keys %hash2};