#! /usr/local/bin/perl  -w

open (CYT, "C:/Work/ING_Occurrences_Companies/CytokineArrays.txt");

	 while (<CYT>){
	 chomp;
	 @cytokine=split(/\t/,$_);}
	 
	 

close CYT;	 
	
open (OUT, ">C:/Work/ING_Occurrences_Companies/ING_Count.txt"); 
open (IN, "C:/Work/ING_Occurrences_Companies/ING.txt");


	 while (<IN>){
	 chomp;
	 @ING=split(/\t/,$_);
	 $count = 0;
	 
	 if($ING[2] =~ /@cytokine[1]/){
	 $count++;
	 
	 print OUT "$ING[0]\t$ING[1]\t$cytokine{$ING[2]}\t$count\t\n";

}}
close IN;
close OUT;