$number = 123456789;
$number = reverse join ",", (reverse $number) =~ /(\d{1,3})/g;