open(INFO, "<", "$infile") or die ("could not open file to append".$!);
open(FILEA, "<", "outputfromvariantparser1.txt") or die ("could not open file to write output");
open(FILEB,">>", output.txt") or die ("could not open file to write output");