my $matched=0;

foreach my $id (keys %manager){
	foreach my $manager (keys %{$manager{$id}}){		
		for my $i (0..$#{$manager{$id}{$manager}{'members'}}){
			my $index=0;
			foreach my $emp (@found){
				if ($emp->{'ID'}=~/$manager{$id}{$manager}{'members'}[$i]/i){
					splice(@found, $index, 1);
					print $emp->{'Name'} . "\n";
					$matched++;}
				$index++;}}}}