while(<INPUT1>){
         chomp;
         my @id = split /\t/;
            if ($id[0] =~ /(.+?)\-(\d+?)_(\d+)/) {
            my @line_map = ("$1",  $2, $3);
            push @file_map, [@line_map];
     }
}

close(INPUT1);


while(<INPUT2>){
         chomp;
         my @map_id = split /\t/;
            if ($tg_id[0] =~ /(.+?)\-(\d+?)_(\d+)/) {
            my @tg_id = ("$1",  $2, $3);
            push @file_tg, [@tg_id];
    }
}  

     
   
          if (($from_tg == $from_map) && ($to_tg == $to_map)){

                print  join("\t",$two_geno_id, $from_map,$to_map,"<-Mapside**TGside->",$two_geno_id, $from_tg, $to_tg, $from_map_tg_range, $to_map_tg_range),"\n";
            $lines_1++;
            }
            elsif (($from_tg < $to_map) && ($from_tg > $from_map)){

                print  join("\t",$two_geno_id, $from_map,$to_map,"<-Mapside**TGside->",$two_geno_id, $from_tg, $to_tg, $from_map_tg_range, $to_map_tg_range),"\n";
             $lines_9++;

    }