foreach my $sample_geno_group(keys(%hash_geno_group)) { print $sample_geno_group. "\n"; foreach my $cds (keys %{$hash_geno_group{$sample_geno_group}}) { print "cds ".$cds. "\n"; next if ($cds eq "sample"); my $RC = 0; $RC += $hash_geno_group{$sample_geno_group}{$cds}{"rc"}; print "rc ".$RC. "\n"; #verification du nombre minimun de reads pour chaque groupe genotypique if ($RC < $seuil_min_classe) {