die "usage: perl argv.test.pl a b c d ...\n" unless @ARGV;

for(0..$#ARGV){
   print "  ARG $_ $ARGV[$_]\n";
}
__END__
C:\>perl argv.test.pl
usage: perl test.pl a b c d ... at argv.test.pl line 2.

C:\>perl argv.test.pl 1 2 a b c
  ARG 0 1
  ARG 1 2
  ARG 2 a
  ARG 3 b
  ARG 4 c

C:\>