sub base_code  {
   my ($h_codes) = @_;
   for my $h_planet ( @$h_codes{ sort keys %$h_codes }) {
      for my $a_aa ( @$h_planet{ sort keys %$h_planet}) { 
         for my $codon ( @$a_aa ) {
            print $codon, "\n";
         }
      }
   }
}