if ($genes[2] eq $hugo[$i]) {
                print $OUT "$genes[0]\t$genes[1]\t$genes[2]\t$genes[3]
+\t$hugo[1]\n";
            })