use Number::Format;
my $x = new Number::Format(-thousands_sep => ' ');
my $number = 1234567890;
print $x->format_number($number);