Select Code to Download

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

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