- or download this
my %reverse;
push @{$reverse{$CodonMap{$_}}}, $_ for keys %CodonMap;
- or download this
#!/usr/bin/env perl -l
...
push @{$reverse{$CodonMap{$_}}}, $_ for keys %CodonMap;
print "A codons: @{$reverse{A}}";
print "B codons: @{$reverse{B}}";
- or download this
A codons: GCA GCU GCG GCC
B codons: UVW XYZ