$fields[2] = $file;
my $locus = join "\t", @fields[0,1,2,3,4,5];