#!/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;