my @common_keys = grep { exists $hash1->{$_} } keys %$hash2;