use strict;
use warnings;

my $i = 1;
foreach my $arg (@ARGV){
        print "$i\t: $arg\n";
        $i++;
}