johngg@shiraz:~/perl/Monks > perl -E 'say for glob q{{A,C,G,T}} x 3'
AAA
AAC
AAG
AAT
ACA
ACC
ACG
ACT
...
TGA
TGC
TGG
TGT
TTA
TTC
TTG
TTT

##</code><code>##

my %genetic_code = do {
   my @amino_acids = qw{
      K N K N T T T T R S R S I I M I
      Q H Q H P P P P R R R R L L L L
      E D E D A A A A G G G G V V V V
      * Y * Y S S S S * C W C L F L F
      };
   map { $_ => shift @amino_acids } glob q{{A,C,G,T}} x 3;
   };