print "Alex children are \n\n        "
, join("\nand     ", map $_->{age}, reverse @{$alex{children}})
, "years old\n";