Select Code to Download

$[ = 5;
my @foo = qw(a b c);
...
printf "Last index: %d\n", $#foo;
printf "*Number of elements: %d\n", $#foo + 1;
printf "*Last index: %d\n", scalar @foo - 1;

Number of elements: 3
Last index: 7
*Number of elements: 8
*Last index: 2