Select Code to Download

use Tie::Hash::Sorted;
my %ages = ( 'John' => 33,
...
for my $name ( keys %sorted_ages ) {
   print "$name is $sorted_ages{$name} years old.\n";
}