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