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