You might consider using the profiler Devel::NYTProf to assess where the bottlenecks are in your code.

It provides verbose indication of how much time has been spent executing code at the subroutine and statement level.