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