Select Code to Download

johngg@shiraz:~/perl/Monks > perl -E 'say for glob q{{A,C,G,T}} x 3'
AAA
...
TTC
TTG
TTT

my %genetic_code = do {
   my @amino_acids = qw{
...
      };
   map { $_ => shift @amino_acids } glob q{{A,C,G,T}} x 3;
   };