Select Code to Download

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

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

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