sub commify { local $_ = shift; $_= sprintf("%.2f",$_); 1 while s/^([-+]?\d+)(\d{3})/$1,$2/; return $_; }