while (my ($sNewGroup,$hMembers) = each(%hNewGroups)) {
  print "$sNewGroup: " . join(',', keys %$hMembers) . "\n";
}