# write file delimited by comma space (even last item)
  foreach $data (@vals) {
    print OUTFILE "$data, ";
  }
  print OUTFILE "\n";

##</code><code>##

  print OUTFILE join(', ', @vals) . "\n";