#!usr/bin/perl

my $i;

for ($i=1;$i<22;$i++){
    foreach $g ("J","K","L","D","O","M","N","P","T","C","G","E","F","H","I","R","S") {
	print "$i $g \n";
	system "./fakeawk21.pl --org=$i --group=$g < cog-gene-21.txt | uniq | wc -l";
    }
}
