Select Code to Download

my %word_list = ( bat=> 0, cat=> 0, eat=> 0, fat=> 0 );
my @words = qw( bat bat dat fat eat eat eat fat );
...
foreach $word (sort keys %word_list) {
   print "$word: $word_list{$word}\n";
}

%word_list = ( bat=> 0, cat=> 0, eat=> 0, fat=> 0 );
my @words = qw( bat bat dat fat eat eat eat fat );
...
foreach $word (sort keys %word_list) {
   print "$word: $word_list{$word}\n";
}

my %word_List = ( );