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

##</code><code>##

open (CYT, "C:/Work/ING_Occurrences_Companies/CytokineArrays.txt")
    or die "can't read 'C:/Work/ING_Occurrences_Companies/CytokineArrays.txt': $!\n";

##</code><code>##

use strict;
my $cytok_file = "C:/Work/ING_Occurrences_Companies/CytokineArrays.txt";
open CYT, '<', $cytok_file or die "can't read '$cytok_file': $!\n";

##</code><code>##

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

##</code><code>##

while (<CYT>) {
    chomp;
    my ($name, $description, $ID ) = split /\t/;
    $occurrences{$ID} = 0;  # initial count
}

##</code><code>##

while (<CYT>) {
    chomp;
    my $ID = (split /\t/)[2];
    $occurrences{$ID} = 0; # initial count
}

##</code><code>##

while (<CYT>) {
    chomp;
    $occurrences{ (split /\t/)[2] } = 0; # initial count
}

##</code><code>##

close CYT;

##</code><code>##

close CYT or die "can't close filehandle CYT properly: $!\n";

##</code><code>##

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

##</code><code>##

my $outfile = "C:/Work/ING_Occurrences_Companies/ING_Count.txt";
my $infile  = "C:/Work/ING_Occurrences_Companies/ING.txt";

open OUT, '>', $outfile or die "can't write '$outfile': $!\n"; 
open IN,  '<', $infile  or die "can't read '$infile': $!\n";

##</code><code>##

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

}}

##</code><code>##

my %lines;
while (<IN>) {
    chomp;
    my $ID = (split /\t/)[2];
    $ocurrences{$ID}++;
    $lines{$ID} = $_;
}

##</code><code>##

foreach my $ID (sort keys %ocurrences) {
    print $lines{$ID}, "\t", $ocurrences{$ID}, "\n";
}