my $uniqueID = Scalar::Util::refaddr( $self );
  $objectsHash->{$uniqueID} = $self;