BGKMLW25_task8.pl

open DISEASEGENEFILE, "N:/FHML_BIGCAT/Bioinformatics/Programming/mart.txt";
open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";;

%disease = {};
while($line = <DISEASEGENEFILE>){
  @fields = split(/\t/, $line);
	if ($fields[2] ne ''){
	    $disease{$fields[0]} = $fields[2];
	} 
}
while($line = <EXPRESSIONFILE>){
	@fields2 = split(/\t/, $line);
	if ($disease{$fields2[0]} ne ""){
	    print $fields2[0]."->".$disease{$fields2[0]};
    }
}