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