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

##</code><code>##

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

##</code><code>##

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