while (<>) { $count{(split)[6]}++; }