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

##</code><code>##

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