#!usr/bin/perl

foreach $o ("EC","HI","HP","MG","MP","SS","MJ","SC"){
    foreach $g ("J","K","L","O","M","N","P","C","G","E","F","H","I","R","S") {
	print "$o $g \n";
	system "./fakeawk.pl --org=$o --group=$g < cog_gene.txt | uniq | wc -l";
    }
}
