my @data = ('one', 'two', 'three');
foreach (@data) {
  print "$_\n";
}
for (my $i=0; $i < @data; $i++) {
  print "$data[$i]\n";
}

__output__

one
two
three
one
two
three