Try Devel::DProf - a profiler specialised on subroutine execution times.

Step 1: Profile the code:

$ perl -d:DProf yourprog.pl
[download]

Step 2: Display results:

$ dprofpp -l tmon.out
[download]

Otherwise, use Devel::NYTProf as already suggested.

HTH,
Thomas