#!/usr/bin/perl

$f1 = shift;
$f2 = shift;

open(F1, $f1) || die $!;
open(F2, $f2) || die $!;

while (<F1>) {
	chomp;
	/(.*)\t(.*)/;
	$data[$1] = $2;
}

while (<F2>) {
	chomp;
	/(.*)\t(.*)/;
	$data[$1] -= $2;
}

for $i (0..99) {
	print $i."\t".$data[$i]."\n";
}