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