my $i = 0;

foreach my $scalar (@array) {
    print $scalar, " is at position ", $i++, "\n";
}
[download]

--
John.

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

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

Gotit! Thanks to both of you... :-) Lucie Luvsya

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

Thanks for the quick reply, however I need the results inclosed within the foreach statement as shown above.

foreach my $i (0..$#array)
{
     print "$i: $array[$i]\n";
}
[download]

my $i = 0;
foreach my $e (@array)
{
     print "$i: $e\n";
     $i++;
}
[download]

for (my $i = 0; $i < @array; $i++)
{
     print "$i: $e\n";
}
[download]