Help for this page
$#arrayname
my $i; for ($i = 0; $i <= $#arrayname; $i++) { #do something }
my @stooges = qw(Larry Moe Curly); print scalar(@stooges), " Stooges!\n";