简并碱基

my %degenerate=(
"A,G" => "R",
"C,T" => "Y",
"A,C" => "M",
"G,T" => "K",
"G,C" => "S",
"A,T" => "W",
"A,T,C" => "H",
"G,T,C" => "B",
"G,A,C" => "V",
"G,A,T" => "D",
"A,T,G,C" => "N"
);