You need to reset the TARGET file pointer for every gene, otherwise you'll be at end-of-file after the first time through the file. Try

    ...
    seek(TARGET, 0, 0);
    while ($target = <TARGET>) {
        ...
[download]

or read the TARGET data into memory, as you've done with the IF data.