Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while (($key, $value) = each(%fred)) {
print "key = $key value = $value\n" ;
}

chomp(@words = <STDIN>);
# read the words, minus newlines
...
foreach $word (keys %count) {
print "$word was seen $count{$word} times\n";
}