for my $id (1..11) {
  if($cytokine[2*$id+1]=~/\S+/ and exists $ING{$cytokine[2*$id+1]}) {
    print OUT "$cytokine[2*$id]\t$cytokine[2*$id+1]\tY\t";
  } elsif ($cytokine[2*$id+1] =~ /\d+/) {
    print OUT "$cytokine[2*$id]\t$cytokine[2*$id+1]\tN\t";
  } else {
    print OUT "$cytokine[2*$id]\t$cytokine[2*$id+1]\t\t";
  }
}