foreach $newdn (sort keys %newgrouphash )  {
      print "Name:$newdn\n\t";
    	 foreach $group ( sort @{$newgrouphash{$newdn}} )  {
             print "$group, ";
         }
      print "\n";
}