If you want to benchmark your code, use Perl's Benchmark module. There's no need to reinvent it. Super Search should find numerous examples of how to use it.

Update: I see you have already mentioned Benchmark. In future, I must read more carefully before repying. Bad me.