PS. why this stupid dog did not used Benchmark?

If you just use Time::HiRes 'time';, you already get a much higher resolution for the time measurements than you do now, without changing anything else in the code.