my $samples_list = join "\t", @samples;
print OUT "CHROM    POS    ID    REF    ALT    QUAL    $samples_list