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