perl -le '@arr=qw(10 1 2 3 4);$[=1;print $arr[$_],"\t",$_ for 0 .. $#arr;'
10	0
10	1
1	2
2	3
3	4
4	5