%word_list = ( bat=> 0, cat=> 0, eat=> 0, fat=> 0 );
my @words = qw( bat bat dat fat eat eat eat fat );
my $word;
foreach $word (@words){
   $word_list{$word}++;
}

foreach $word (sort keys %word_list) {
   print "$word: $word_list{$word}\n";
}