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