sub commafy_int
{
    my $n = shift;
    length($n) > 3 or return $n;
    my $l = length($n) - 3;
    my $i = ($l - 1) % 3 + 1;
    my $x = substr($n,0,$i) . ',';
    while ( $i < $l )
    {
        $x .= substr($n,$i,3) . ',';
        $i += 3;
    }
    $x . substr($n,$i)
}