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