besides all the suggestions made by other monks, how about using a profiler?

Last week I released a new one, Devel::FastProf, that is able to tell in which lines the program spends more time.

Also, Devel::SmallProf does the same, it's slower but better tested.