my $i;
for (values %hoh) {
    $_->{age} == 12 && $i++;
}