while( my @F = getgrent() ){ push @groups, [@F] }; endgrent();
@sec_gp = map($_->[2], grep($_->[3] =~ /\b$name\b/,@groups) ) );