#!/usr/bin/perl

print @ARGV;

for $arg (@ARGV) {
	print "$arg\n";
}

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