Select Code to Download

  foreach (@GLOBAL_OBJECT_LIST) {
    $_->{backref} = \$_;
  }

  undef ${ $_->{backref} };

  @GLOBAL_OBJECT_LIST = grep { $_ != $self } @GLOBAL_OBJECT_LIST;