print scalar grep{$_->{'age'} == 12} values %hoh;