my ($bam,$liste_snp, $list_geno, $ref_cds, $prefixe);

my $min_snp_cds = 1;
my $seuil_min_classe = 30;
my $seuil_max_amb = 1;

GetOptions(
    ...