use Number::Format qw(:subs);
print format_number(123456.789); # prints 123,456.79

##</code><code>##

use Number::Format qw(:subs);
print format_number(123456, 2, 1); # print 123456 with two decimals, fill with 0s