sub commify {
    (my $number = shift) =~ s/\G([+|-]?)(\d{1,3})(?=(?:\d\d\d)+(?:\.|$))/$1$2,/g;
    return $number;
}