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