$ perl -wle'
@a = qw(a b c d);
print $#a;
$[ = 2;
print $#a'
3
5