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:' , \$ra[-1], ': $#: ', \$ra[\$#ra]"
done