Select Code to Download

$ perl -wle'$|=1; @a=qw(a b c); print "$_: $a[$_]" for -@a-1..$#a+1'
Use of uninitialized value in concatenation (.) or string
...
2: c
Use of uninitialized value in concatenation (.) or string
3: