my %age; # Age of a person, in years
$age{'Sonny'}  = 30;
$age{'Junior'} = 10;
$age{'Poppa'}  = 40;

foreach my $person (sort keys %age) {
    print "$person is $age{$person} years old\n";
}