sub arrayref_to_csvline { ... }

my $headers;
while (my $row = $iter->())
{
  $headers ||= print arrayref_to_csvline($row->fields);
  print arrayref_to_csvline($row->values);
}