in reply to Perl Script performance issue

Please suggest how to improve it or any better design

What size are these files approximately ? How many records and length of record. How long does the program currently take to execute ?

poj