while ( my($name,$pw,$gid,$members) = getgrent ) {
  push(@rgids,$gid) if ( grep($_ eq $user,split(/\s+/,$members)) );
}