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