#!/usr/bin/perl 

#Copy Die2 as Output file

use File::Copy; 
copy ("Die2.txt","CombineDie1Die2.txt") or die "copy failed: $!"; 

#Open Die1 Input file 
open (Label, "Die1.txt") or die "can't open Die1: $!"; 

#Search and replace using 1 liner command 
while (<Label>) { 
	$replace = $_; 
	chomp ($replace); 
	@temp = split (/,/, $replace); 
	$search = $temp[0].",".$temp[1]; 
	$command_line = "perl -pi\.bak -e s\/".$search."\/".$replace."\/g\; CombineDie1Die2.txt"; 
	system ($command_line); 
} 


##</code><code>##

 
input file 1 
WL,BL,Die1
WL0,BL0,1708
WL0,BL1,1708
WL0,BL2,1708
WL0,BL3,1931
WL0,BL4,1931
WL0,BL5,1931
WL0,BL6,1931
WL0,BL7,1931
WL0,BL8,1708
WL0,BL9,1931
WL0,BL10,1708
WL0,BL11,1708
WL0,BL12,1708
WL0,BL13,1931
WL0,BL14,1931
WL0,BL15,1931
WL0,BL16,1931
WL0,BL17,2153
WL0,BL18,2153

input file 2 
WL,BL,Die 2
WL0,BL0,1708
WL0,BL1,1708
WL0,BL2,1708
WL0,BL3,1931
WL0,BL4,1931
WL0,BL5,1931
WL0,BL6,1931
WL0,BL7,1931
WL0,BL8,1708
WL0,BL9,1931
WL0,BL10,1708
WL0,BL11,1708
WL0,BL12,1708
WL0,BL13,1931
WL0,BL14,1931
WL0,BL15,1931
WL0,BL16,1931
WL0,BL17,2153
WL0,BL18,2153


Error output : 
(example: at line 12, "WL0,BL1,17080,1708" the 3rd value had addition "0" added in it. Thus, subsequently there was increment of the number in this area." 

WL0,BL1,17081,1708  <-- 1708 instead of 17081
WL0,BL1,17082,1708  <-- 1708 instead of 17082
WL0,BL1,17083,1931  <-- 1708 instead of 17083

==========================

Exact Error output file
WL,BL,Die1,Die 2
WL0,BL0,1708,1708
WL0,BL1,1708,1708
WL0,BL2,1708,1708
WL0,BL3,1931,1931
WL0,BL4,1931,1931
WL0,BL5,1931,1931
WL0,BL6,1931,1931
WL0,BL7,1931,1931
WL0,BL8,1708,1708
WL0,BL9,1931,1931
WL0,BL1,17080,1708
WL0,BL1,17081,1708
WL0,BL1,17082,1708
WL0,BL1,17083,1931
WL0,BL1,17084,1931
WL0,BL1,17085,1931
WL0,BL1,17086,1931
WL0,BL1,17087,2153
WL0,BL1,17088,2153