$hash_sample_cds_genotype{"$_\t"}
    = delete $hash_sample_cds_genotype{$_} 
      for grep {m/^\Q$cds/} 
      keys %hash_sample_cds_genotype;