>perl -wMstrict -le
"$[ = 100;  my @ra = qw(a b c d e f);
 print '$[: ', $[, '  -1: ', $ra[-1], '  $#: ', $ra[$#ra];"
$[: 100  -1: f  $#: f

##</code><code>##

$[: 100  -1: f  $#: f
$[: 1  -1: f  $#: f
$[: 0  -1: f  $#: f
$[: -1  -1: f  $#: f
$[: -6  -1: f  $#: f
$[: -7  -1: f  $#: e
$[: -11  -1: f  $#: a
Use of uninitialized value in print at -e line 1.
$[: -12  -1: f  $#:
Use of uninitialized value in print at -e line 1.
$[: -99  -1: f  $#: