my $number = 1234567890;
print format_number($number);

sub format_number{
	my($x) = @_;
	$x = reverse $x;
	$x =~ s/(\d{3})/$1 /g;
	$x = reverse $x;
	return $x;
}