in reply to Subroutine execution time

IMHO you need:
perldoc Benchmark

In Section Seekers of Perl Wisdom