sub commify
  {
    my $number = shift;
    while ($number =~ s/(^-*\d*\d)(\d{3})/$1,$2/) { ; }
    return $number;
  }