my $object;
my $subobject;
  foreach my $keyn (keys %{$subobject}){
    $object->{$keyn} = $subobject->{$keyn};
   }