sub commify {
    local $_ = reverse shift;
    /\./g;
    s/\G(\d{3})(\d)/$1,$2/g;
    scalar reverse $_
}