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