sub useSubstr
{
    my $number = shift;
    my $length = -( 1 + length $number );
    my $offset = -3;
    while ( $offset > $length )
    {
        substr $number, $offset, 0, q{,};
        $offset -= 4;
    }
    return $number;
}