#!/usr/bin/perl
use strict;
use warnings;

for (0..$#ARGV)
{
  print "$_:[$ARGV[$_]]\n";
}