my %counts;
while (<$fh>) {
   chomp;
   my @fields = split /\t/;
   $counts{ $fields[3] }++;
}