How can I output my numbers with commas added?

This one will do it for you:

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