my $OBJScopy;
  foreach my $obj (@$OBJS) {
    push(@{$OBJScopy}, clone($obj));
  }