#! /usr/bin/perl -w
open AA, '<',"A.txt"    or die "open: $!";
   foreach $line(<AA>)
   {
       chomp($line);
       @temp=split(/\./,$line);
       $new=$temp[0].'.'.$temp[1];
open BB, '<',"B.out"    or die "Failed to open B.out: $!";
       foreach $line1(<BB>)
       {
         @temp1=split(/\s+/,$line1);
         if($new eq $temp1[0])
           {
           print $temp1[1]."\t";
           print $temp1[2]."\n";
           }
       }
close (BB);
}
close(AA);