open (FILE, 'probe_dist.tsv');
open (OFILE,'>probe_sum.tsv');
while (<FILE>)
{
	my @a;
	my @b;
	($a,$b)=split ("\t");
	$a=@a;
	$b=@b;
	my $c;
	my $d;
	my $c=1;
	my $d=0;
	my $e=$b[$d]-$a[$c];
	$c++;
	$d++;
	print OFILE "$e\n";
	
}

##</code><code>##

4775792 4775851
4775842	4775901
4775852	4775911
4775902	4775961
4775952	4776011
4776002	4776061
4776052	4776111
4776102	4776161
4776212	4776271
4776252	4776311
4776302	4776361
4776352	4776411