for i = 1 to 10
myarray(i) = myarray(i) + 1
next i

##</code><code>##

my $i;
my @array = (1, 5, 6, 9, 57);

for ($i=0; $i <= (scalar(@array)-1); ++$i)
{
    ++$array[$i];
}
##</code><code>##

foreach $bar(@bar)
{
    ++$bar;
}