while( my $word = <STDIN> ){
  chomp $word;
  last if $word eq 'done';
  $counter{$word}++;
}