use strict;

my @sec_gp;
my $name = "xxxxx";
while (my ($gname,$gpasswd,$gid,$members)=getgrent) {
   my @list_members=split (/\s+/,$members);
   my @list=grep (/$name/,@list_members);
   if ($list[0] eq $name) {
      push (@sec_gp,"$gname");
   }
}
print "\@sec_gp: ";
print "$_\n" foreach @sec_gp;

##</code><code>##

@sec_gp: acad libsoftwrite helpdesk codes

##</code><code>##

   push(@sec_gp, "$gname") if $list[0] eq $name;