sub arrayref_to_csvline { ... }

my $rows = 0;
while (my $row = $iter->())
{
  print arrayref_to_csvline($row->fields) unless $rows++;
  print arrayref_to_csvline($row->values);
}