my %reverse;
push @{$reverse{$CodonMap{$_}}}, $_ for keys %CodonMap;