tie my %sorted_ages, 'Tie::Hash::Sorted',
                     'Hash' => \ %ages,
                     'Sort_Routine' => $sort_by_numeric_value;