Select Code to Download

my %sorted =
sort { $a->{old_file} cmp $b->{old_file} } 
   (keys %{$hashref});
my $sorted = \%sorted;
# or put { } around the sort expression to do it one line.