!#/usr/bin/perl -w

open (IN, "C:/work/job2/Ab2SigmaGene.txt");

while (<IN>){ #start while loop
	  chomp;
	  @t=split(/\t/,$_);
	  $t[4]= $AB{[4]};
}  #end while loop

close IN;

open (OUT, ">C:/work/job2/XP725a.txt");    			
open (IN, "c:/work/job2/XP725_Ab_array.txt");

while (<IN>){  #start
	  chomp;
	  @var1=split(/\t/,$_);
	  
	  if ($var1[2] and exists $Ab{$var1[2]}){
	  print OUT "$var1[0]\t$var1[1]\t$var1[2]\t$AB[4]\n";}
	  
	  }   #end
close IN;
close OUT;