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