my @foo = qw(bar baz ne);
foreach (my $ix=0;$ix < @foo; $ix++){print $foo[$ix]}