$#arrayname

##</code><code>##

my $i;
for ($i = 0; $i <= $#arrayname; $i++) {
#do something
}

##</code><code>##

my @stooges = qw(Larry Moe Curly);
print scalar(@stooges), " Stooges!\n";