sub comma3
{
    my $ct = 0;
    my $len = length $_[0];
    return join q{},
       reverse map
       {
           ++ $ct % 3
              ? $_
              : $ct == $len
                 ? $_
                 : ($_, q{,})
       }
       reverse split m{}, $_[0];
}