Select Code to Download

sub generate {
  my ($self, $OBJS) = @_;
...
  }
  return LA-LA;
}

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