#!/usr/bin/perl
use Getopt::Long;

GetOptions ("group=s" => \$group,
	    "org=s" => \$i);

print "$org";
while (<>) {
    ($cog_id, $group_id, $org[1], $org[2], $org[3], $org[4], $org[5], $org[6], $org[7], $org[8], $org[9], $org[10], $org[11], $org[12], $org[13], $org[14], $org[15], $org[16], $org[17], $org[18], $org[19], $org[20], $org[21] ) = split();
    #print "$cog_id";
    if ($org[$i]== 1 ) {
	if ($group_id =~ /$group/){
	    print "$cog_id\n";
	}
    }
}




