#!/usr/bin/perl -w

use v5.16;
use strict;

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


AUNT:
while (<>) {
	my ($id, $rest) = /Sue (\d+): (.*)/;
	my %vals = $rest =~ /(\w+): (\d+)/g;
	for my $v (keys %vals) {
		next AUNT if defined $g{$v} && $g{$v} != $vals{$v};
	}
	say "aunt $id";
}
