Select Code to Download

sub print_inorder {
   my $node= shift;
...
      for sort { $a->{name} cmp $b->{name} } 
          values %{ $node->{kids} || {} };
}