} elsif ($level == 2) { foreach my $item (@{$partners{$base}}) { if (exists $partners{$item}) { push @allmembers1, $item, @{$partners{$item}}; foreach $item1(@allmembers1) { if (exists $partners{$item1}) { push @allmembers, $item1, @{$partners{$item1}}; } } } }