while (<XCH0S>) {
	@array = split(",", $_);
	$array[2] =~ tr/A-Z/a-z/;
	chomp $array[2];
	$xch0{$array[2]}++;
	
}
while (<XCH3S>) {
        @array2 = split(",", $_);	
	$array2[2] =~ tr/A-Z/a-z/;
        chomp $array2[2];
	if (!defined $xch0{$array2[2]}) {
		print "DN of extra record is:  $array2[2]";
	} else { next; }
}