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";

}}