my $number = 132452345;
for ( my $i = -3; $i > -1 * length($number); $i -= 4 )
{
    substr( $number, $i, 0 ) = ',';
}