Isn't it straight forward after reading sort ?

like modifying this snippet from the perldoc accordingly?

    # this sorts the %age hash by value instead of key
    # using an in-line function

    my @eldest = sort { $age{$b} <=> $age{$a} } keys %age;
[download]