use strict;

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