use warnings;
use strict;
use Number::Format qw(format_picture);

print format_picture(4123456789, '##,##,##,##,##,##,###'), "\n";

__END__

        4,12,34,56,789