use strict;

for (my $j = 0; $j <= $#ARGV; $j++) {
	print "ARGV[$j] = $ARGV[$j]\n";
}

##</code><code>##

t.pl one,two three four
ARGV[0] = one,two
ARGV[1] = three
ARGV[2] = four

t.pl "one two" three four
ARGV[0] = one two
ARGV[1] = three
ARGV[2] = four