Select Code to Download

Homer is 37 years old.
Marge is 36 years old. 
Bart is 12 years old. 
Lisa is 9 years old. 
Maggie is 2 years old.

#first the example %hash
my %age = ( "Maggie" => 2, "Homer" => 37, "Bart" => 12, "Lisa" => 9, "
+Marge" => 36);
...
#I snagged this is From O'reilly's Learning Perl, 3rd ed...
sub by_age { $age{$b} <=> $age{$a} }