Your first step should be to start your script with

use strict;
use warnings;
[download]

And declare your variables with my.

It would catch some of your mistakes. For example you're populating the array @cytokine, and later you try to read out of $cytokine{$ING[2]}, which access the (totally different) variable %cytokine.