Select Code to Download

$[ = -4;
@a = (qw(a b c d e f g h i j));
...
__DATA__
d
j

$[ = 0;
@a = (qw(a b c d e f g h i j));
...
__DATA__
j
j

for x in 100 1 0 -1 -6 -7 -11 -12 -99; do
    perl -le "\$[=$x; my @ra=qw(a b c d e f); print \$[, ': -1:' , \$r
+a[-1], ': $#: ', \$ra[\$#ra]"
done

100: -1: f: $#: f
1: -1: f: $#: f
...
-11: -1: f: $#: a
-12: -1: f: $#: 
-99: -1: f: $#:

100: -1: f: $#: f
1: -1: f: $#: f
...
-11: -1: : $#: a
-12: -1: : $#: 
-99: -1: : $#: