$ perl -le'
my $number = 123456789;
my $ct = 0;
$number = join q{},
    reverse map { ++$ct % 3 ? $_ : ( $_, q{,} ) }
    reverse split //, $number;
print $number;
'
,123,456,789