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