if ( $thr->tid && !threads::equal( $thr, th +reads->self ) ) {
##########Not Sure #######
				foreach my $client ( keys %sharedHash ) {
					print " client $client\n";
					my $thrnew = thread->new( \&compare, $client );
					$sema->up;
				}