use 5.20.0;
use List::AllUtils qw/ pairmap reduce pairs /;

my %target = (
    children=> 3,
    cats=> 7,
    samoyeds=> 2,
    pomeranians=> 3,
    akitas=> 0,
    vizslas=> 0,
    goldfish=> 5,
    trees=> 3,
    cars=> 2,
    perfumes=> 1,
);

while(<>) {
    my %attr = eval( ( split ':', $_, 2 )[1] =~ s/:/=>/gr );
    say $_ if reduce {
        $a and 
            $b->[0] eq 'cats' ?  $target{$b->[0]} < $b->[1]
            : $b->[0] eq 'trees' ?  $target{$b->[0]} < $b->[1]
            : $b->[0] eq 'goldfish' ?  $target{$b->[0]} > $b->[1]
            : $b->[0] eq 'pomeranians' ?  $target{$b->[0]} > $b->[1]
            : $target{$b->[0]} == $b->[1]
    } 1, pairs %attr;
}