Select Code to Download

  foreach ( sort keys %h ) {
      ...
      $h{$new} = $new;

  @sorted = sort keys %h;
  foreach ( @sorted ) {
      ...
     $h{$new} = $new;