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