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