sub add_containee(\%\%) {
        my ($container, $containee)=@_;
#$container/containeeIndex are references to code providing this information
        #find the container
        my ($object, $i);
        my $found=0;
        for ($i=0; $i< @containerRefArray; $i++) {
          if ($containerRefArray[$i] eq $container) {
          $found=1;
            last;
          }
        }
        if (! $found) {push @containerRefArray, $container;
          push @containeeArray, []}
 
        if (defined $containee) {
          push @{$containeeArray[$i]}, $containee;}
}