First, thanks Ovid and broquaint. This is a well done example of Perl, benchmarking and test in a different context than make test.

broquaint, if I understand Your example, there is a typo in sub _fact0, it should return

    return _fact0(($result * $counter), ($counter + 1), $max);
[download]

That makes recursion 1 twice as fast as recursion 2