use Tie::Hash::Sorted;
my %ages = ( 'John' => 33,
             'Jacob' => 29,
             'Jingle' => 15,
             'Heimer' => 48,
             'Smitz' => 12,
           );