package myPackage;

my @containerRefArray=();
my @containeeArray=();

...

sub get_parentRelPos (\%$) {
  my ($object, $name)=@_;
  my ($i, $j, $found);
  my @tmp;
  my $parentObject=$object->{'~PARENT'};
  my $objectIndex=$object->{'~entPhysicalIndex'};

  for ($i=0; $i < @containerRefArray; $i++) {
    if ($containerRefArray[$i] eq $parentObject) {
      $found=1;
      last;
    }
  }

...


##</code><code>##

  DB<16> x @containeeArray
0  ARRAY(0xf132c0)
   0  HASH(0xf11260)
      'entPhysicalAlias' => undef
      ...
  DB<17> n
NIM_Contains::get_parentRelPos(/home/rt106745/dev-edit/modules/NIM_Contains.pm:48):
48:       if ($found) {
  DB<17> x @containeeArray
  empty array