Select Code to Download

foreach my $word ( <STDIN> )
{
...
{
  print "$word : $word_list{$word}\n";
}

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