You may want to take a look at Devel::NYTProf for profiling your code.
In reply to Re^3: improve performance by marto in thread improve performance by swissknife