in reply to Speed up perl code

You hope that people here will analyze 1000 lines of code? Maybe it's time for you to use Devel::NYTProf?

In Section Seekers of Perl Wisdom