$nodelist{$NewObjectName}=$self;

##</code><code>##

   $self->{LEFT_LINK} = $nodelist{$NameOfLinkedNode};