print "Foo...\n" if $verbose;

##</code><code>##

my @array = ( "foo", "bar", "baz" );
my $i;
my $array_size = scalar( @array );
for( $i = 0; $i < $array_size; $i++ ) {
  ...do something with $array[$i]...including assigning to it
}

##</code><code>##

my @array = ( "foo", "bar", "baz" );
foreach my $value ( @array ) {
  ...do something with $value...including assigning to it
}

##</code><code>##

#!/usr/bin/perl -w
...your script here...

##</code><code>##

use strict;