This looks like a job for a profiler!
Try Devel::NYTProf on for size...
In reply to Re: help speeding up my perl code by thezip in thread help speeding up my perl code by a217