Select Code to Download

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

#added by me
              else
...
                        print $OUT "$genes[0]\t$genes[1]\t$genes[2]\t$
+genes[3]\tHUGO_notfound\n";
                         $i++;
                        }