If everytime you open the file you split by /, / and then print using:

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

You will end up with a file with lots of trailing commas.
Instead of the loop, you can use:

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

Hope this helps
Aziz,,,