#!/usr/bin/perl -w

open(IN1, "file1.txt");
open(IN2, "file2.txt");

$counter = 1;

while(<IN2>)
{
	$phone2 = substr($_, 0, 10);
	print "Match: 0" . "\r";

	while(<IN1>)
	{
		$phone1 = substr($_, 1384, 10);
		
		if($phone1 == $phone2)
		{
			print "Match: " . $counter . "\r";
			$counter++;
		}
	}
}

print "\n";

close(IN1);
close(IN2);