Okay, so it looks like you're trying to print out @ARGV more cleanly by defining the output field separator as a comma and the output record separator as a newline. Cool.

Just for TMTOWTDI, here's what I usually do:

use Data::Dumper;
print Dumper(\@ARGV);
[download]

---
"A Jedi uses the Force for knowledge and defense, never for attack."