for(my $i=0;$i<@array;$i++) {
   print("$array[$i] is the $i element\n");
   }