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

##</code><code>##

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