Re: Checking a hash for two matching values.

[NetWallah]

Arguably more readable than those above ... (IMHO, code matches problem description closer)

 my @found= grep { my %r =  reverse %$_; exists $r{cat} && exists $r{d
+og}}   @pets;

[moritz]

It really depends on whether walkingthecow wants a case insensitive substring search, as his own code implies, or a an exact, case sensitive match as your code does.

[farang]

It's easy enough to add case insensitivity to NetWallah's code with fc or lc.

For v5.16 or newer:

use v5.16;
...
my @found= grep { my %r =  reverse map fc, %$_;
                  exists $r{cat} && exists $r{dog} } @pets;

For older versions as well:

my @found= grep { my %r =  reverse map lc, %$_;
                  exists $r{cat} && exists $r{dog} } @pets;

[NetWallah]

Hmm - I did not notice any hints of requiring case-insensitivity, but in any case, that requirement is easily accommodated in my code by adding a "map {lc}" .

 my @found= grep { my %r = map{lc} reverse %$_; exists $r{cat} && exis
+ts $r{dog}} @pets;