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

##</code><code>##

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