print   "Alex children are

        $alex{children}->[1]->{age} 
and     $alex{children}->[0]->{age} years old\n";

print   "Alex is $alex{age} himself\n";