my @match_A = split /\t/, $line;
  for (4..42){
    print "looking through the headers\n";
    push (@list_of_headers, $match_A[$_]); 
  }