foreach my $word ( <STDIN> )
{
  $word_list{$word}++;
}

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

##</code><code>##

foreach my $element ( @list_of_stuff )
{
  print $element,"\n";
}