Select Code to Download

%reverse= reverse(%CodonMap)

use Data::Dumper;
%reverse= reverse(%CodonMap)
print Dumper \%reverse;

use Data::Dumper;
my %reverse;
...
    push @{ $reverse{ $v }}, $k;
};
print Dumper \%reverse;