push @{ $Dad->children },  child_t->new(type=>"Natural Child");