You can also do the sorting and printing in one fell swoop using sort and map like this

print
   map  {qq{$_ is $age{$_} years old\n}}
   sort {$age{$b} <=> $age{$a}}
   keys %age;
[download]

I hope this is of use.

Cheers,

JohnGG

Update: Added missing closing brace in map, thanks Hue-Bond. That's what comes of hasty posting after too much beer :(