$ perl -le'
   for (1..2) {
      print map { my $x=$_; $_="!"; $x } 1..5
   }
'
12345
!!!!!

##</code><code>##

%hash = map { my $v = $hash{$_}; s/ /_/g; $_, $v } @sorted;

##</code><code>##

for (@sorted) {
   my $v = delete $hash{$_};
   s/ /_/g;
   $hash{$_} = $v;
}