C:\>perl -le" print $i++,qq-\t$_ - for @ARGV" a b c d e f g 1 2 3 3 3 3 3 3
0       a
1       b
2       c
3       d
4       e
5       f
6       g
7       1
8       2
9       3
10      3
11      3
12      3
13      3
14      3