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

# is better done like this:

while( my $word = <STDIN> ){
    chomp $word;
    $count{$word}++;
}