http://qs321.pair.com?node_id=748637


in reply to short method to print age.

This mimics what you do.
print "Alex children are \n\n " , join("\nand ", map $_->{age}, reverse @{$alex{children}}) , "years old\n";
Obviously the reverse isn't necessary unless you really want it.

Caution: Contents may have been coded under pressure.