If you pass $str as an argument to the benchmarked subs, the difference will be markedly less pronounced. Run the bench with time limit instead of loop count, and you'll see the test takes a suspiciously long time.

The subs in question are too trivial to measure via Benchmark. Yet another example of benchmarking pitfalls...