#!/usr/bin/perl -w

open (IN, "c:/work/Cytokine_By_Company/ING_cytokines_20080805.txt");

	 while (<IN>){
	 	   chomp;
		   @t=split(/\t/,$_);
		   $ING{$t[9]}=$t[1];
		   #print %ING;
	 }
close IN;

open (OUT, ">c:/work/GeneID_Count/Cytokine.txt")||die "I'm not dead yet";
open (IN, "c:/work/Cytokine_By_Company/CytokineArrays.txt")||die "I'm Dead!!!!";

	 while(<IN>){
	 chomp;
	 @cytokine=split(/\t/,$_);
	 	 
	 while (/\d+/ and exists $ING{$cytokine}){
	 	   $count++;}
			 
	 foreach $cytokine (sort{$ING{$b}<=>$ING{$a}} keys $ING){
	 	   print OUT "$ING{cytokine}\t$count\n";}
		   
 	 }	   
close IN;
close OUT;


##</code><code>##

#!/usr/bin/perl -w

#open(OUT, ">c:/work/new_list.txt");
open (IN, "c:/work/GeneID_Count/CytokineList.txt")||die "Could not open Cytokine Arrays.txt";

%seen = ();
while(<IN>){ 
	 chomp;
     @cytokine=split(/\t/,$_);
     $seen{$cytokine[0]}++;
	
}
close IN;

open (OUT, ">c:/work/GeneID_Count/Cytokine.txt")||die "Cound not create Cytokine.txt";
open (IN, "c:/work/Cytokine_By_Company/ING_cytokines_20080805.txt")|| die "Could not open ING_cytokines_20080805.txt";

while (<IN>){
	  chomp;
	  @ING=split(/\t/,$_);
	  if ($ING[9]=~/\d/ and exists $seen{$ING[9]}){
	  	 print OUT "$ING[1]\t$ING[9]\t$seen{$ING[9]}\n";
	  }
}

close IN;
close OUT;