for my $person (sort {$age{$b}<=>$age{$a}} keys %age) {
    print "$person is $age{$person}\n";
}