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