$counter{$_}++  while chomp($_ = <>) && !/^done$/i;