my $childa = $dada;
my $childb = $momb;
push @chroma, $childa;
push @chromb, $childb;