my %count;
while (<>) {
  chomp($_);
  $count{substr($_, 9)}++;
}