my @keys_in_commmon =
  grep $hashref1->{$_}, keys %$hashref2;