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;