$file="mapped.txt";

open (FH1, "$file");
open (FA, ">>allassignment.txt");
while ($seq1=<FH1>)
{
@seq1=split (/\t/, $seq1);
$pos1=@seq1[3];



open (FH, "ptt.txt");
while ($seq=<FH>)
{
@seq=split (/\t/, $seq);
$pos=@seq[0];
$pos8=@seq[8];
chomp $pos8;
@pos=split(/\.\./, $pos);
$pos_start=@pos[0];
$pos_end=@pos[1];


for ($i=$pos_start, $i<=$pos_end, $i++)
{if ($i=~m/^$pos1$/)
{$position1=@seq1[0]; $position8=@seq1[8]; $position9=@seq1[9];

print FA $i."\t".$pos1."\t".$pos."\t".$pos8."\t".$pos1."\t".$position1."\t".$position8."\t".$position9."\n" ;
last;}
}


}}}