sub sorted_values {
   my $h_ref =shift;
   return  @$h_ref{ sort keys %$h_ref }
}

sub base_code2  {
   my ($h_codes) = @_;
   for my $h_planet ( sorted_values $h_codes ) {
      for my $a_aa ( sorted_values $h_planet ) { 
         for my $codon ( @$a_aa ) {
            print $codon, "\n";
         }
      }
   }
}