while (1) {
    last unless (($gname,$gpasswd,$gid,$members)=getgrent ());
    @list_members=split (/\s+/,$members);
    @list=grep (/$name/,@list_members);
    if ($list[0] eq $name) {
      push (@sec_gp,"$gname");
    }