#!/usr/bin/perl -w

$file1=$ARGV[0];    #First file 
$file2=$ARGV[1];    #second file 
open(TR,$file1); 
while ($line1=<TR>) 
{
chomp($line1);
@ar1 = split(/\t/,$line1);
chomp($ar1[1]);chomp($ar1[3]);
$up = $ar1[3]-500;
$dn = $ar1[3]+500; 
open(SC,$file2);
while ($line2=<SC>)
{
    chomp($line2);
    @array2 = split (/\t/, $line2);
    if ($ar1[1] eq $array2[0])
    {
for ($mm=$up;$mm<=$dn;$mm+=100)
{
$gt = $up+100;
$c ='0';    
if (($array2[1]> $up) && ($array2[1] < $gt)) 
{

    print "$up\t$gt\t$array2[1]\n";
    $c++;
}

$up=$up+50;
        
} 

}
	
    }
    
}