push (@{$newgrouphash{"$newdn"} },"$newgroup");  
	foreach $newdn (sort keys %newgrouphash )  {
     		 print "Name:$newdn\n\t";      		    
    		   foreach $group ( sort @{$newgrouphash{$newdn}} )  {                     	     		 
	              if (!($group =~ /CN=Domain Users/i)) {	
	        	 # print "$group, ";                        			         		
         	      $res = `dsmod group $group -rmmbr \"$newdn\"`;              
             	  print "$res\n";