my @acodes = grep { $CodonMap{$_} eq 'A' } keys %CodonMap;