@array = qw(foo bar spam eggs);
for ($index = 0; $index < @array; $index++) {
    print $array[$index];
}

##</code><code>##

use strict;
my @array = qw(foo bar spam eggs);
for my $element (@array) {
    print $element;
}