sub by_numeric_value {
    $ages{$b} <=> $ages{$a}
}

for my $name (sort by_numeric_value keys %ages) {
    print "$name is $ages{$name} years old.\n";
}