You can speed that up using unpack:

sub commafy
{
    return scalar reverse join ',', unpack '(a3)*', reverse shift
}
[download]