my %count;
foreach my $animal in (@zooanimals) {
   # $animal is a Animal object.
   my $animal_name = $animal->get_name();
   $count{$animal_name}++;
}
# another loop here to print %count.