You can check it yourself using Benchmark. I couldn't help right now with a working example (working on a system with no perl installed), but I am sure you will be able to benchmark your code with help of the documentation (You can always come back for help on Benchmark if you come across any issues).

If you get the answer using Benchmark, please do share it.