Select Code to Download

$#arrayname

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

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