#!perl -w
use strict;
my $i = 0;
for ($ARGV)
{
    print qq( $i : "$_" \n);
    $i++;
}