$self1->{'other'} = $self2;
$self2->{'other'} = $self1;

##</code><code>##

push @all_your_Base, $self1, $self2;