open(INDB, "exp.txt"); 
open(DATA, "qqq.txt");

while(<INDB>) {
$search = $_;
chomp($search);
seek(INDB, 0, 0);




while(<DATA>) {
$therec = $_;


    chomp($therec);


   ($ma,$id ) = split(/\t/, $therec);
  if($id eq $search){

     print " $ma\n ";
 
  }
}
  }