Select Code to Download

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