Select Code to Download

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

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

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

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

use strict;