c:\dev>type arg.pl
#!/usr/bin/perl

use 5.010;
use warnings;
use strict;

my $i = 0;
say $i++ . ":$_" for ($0, @ARGV);