while (...) {
  local ($, = $\ = "\n");
  print @fields, "-" x 80;
}