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

##</code><code>##

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