while (($name, $passwd, $gid) = getgrent) {
	$gid{$name} = $gid;
}
