Select Code to Download

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

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