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;
   };