Devel::Profile does per-sub profiling. Might be worth a look.
In reply to Re: Profiling without Devel::DProf by adrianh in thread Profiling without Devel::DProf by Ovid