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