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