@array = qw( 1 2 3 4 5 6);
for $array_element ( @array ){
  print "This is the element: $array_element\n";
}
[download]

@array = qw( a b c d e f);
for $i ( 0 .. $#array ){
  print "This is the $i th element: ". $array[$i] ."\n";
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.