my $child = shift;
  my $parent = shift;
  push(@{$child},6);