Select Code to Download

chomp(@words = <STDIN>);
foreach $word (@words){
...
    chomp $word;
    $count{$word}++;
}