#!/usr/bin/perl print < janepage
jungle jane's animal inventory!
EOFSECTION1 open(INPUT, "; $count= scalar(@animals);#force scalar/number content print "we have $count animals\n"; my %hashanimals; #second try foreach $animal(@animals){ chomp $animal; if (exists $hashanimals{$animal}){ $hashanimals{$animal}=$hashanimals{$animal}+1; } else{ $hashanimals{$animal}=1;#count of that animal } } while (($key, $value) = each %hashanimals){ print "\n"; } print < \n \n EOFSECTION2
Animal
How Many
$key$value