If you are so concerned about performance I guess you do know exactly how much memory does Number::Format add, right? And you know how does your apparently inefficient code fare against regexp based solutions. Right? You've benchmarked, right? And you found out formatting numbers made a difference, right?

If your rates are so high I want to believe you did not waste time. I don't though.