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