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";
	
}