If you want the index of the array, then either use the C-style for loop:

for (my $i = 0; $i <= $#array; $i++) {
  # index is in $i
  # element is in $array[$i];
}
[download]

Or iterate over the indexes rather than the elements:

foreach (0 .. $#array) {
  # index is in $_
  # element is in $array[$_];
}
[download]

Update: Changed $i to $_ in comments in the second code example. Thanks to arkturuz for spotting the error.

Hi phemal, try using Array::Each module,

use strict;
use warnings;
use Array::Each;
 
 my @x = qw( p e r l );
 my $one = Array::Each->new( \@x );
 
 while( my( $x, $i ) = $one->each() ) {
     printf "%3d: %s\n", $i, $x;
 }
[download]

Otherwise,

use strict;
use warnings;

my @x = qw( p e r l );
for my $index (0..$#x){
    print "$index : $x[$index]\n";
}
[download]

Update: Also refer (RFC) Arrays: A Tutorial/Reference

#!/usr/bin/perl

use strict;
use warnings;

my @array =qw (34 56 78 9);
for( my $i = 0; $i <= $#array; $i++ ) {
  print $i, " ", $array[$i], "\n";
}
[download]

update: Changed to $i <= $#array (thanks rminner).

@array =qw (34 56 78 9);
$index  = 0;
foreach (@array)
{
   print "$index \t $_ \n";
   $index++;

}
[download]

If an "index" is required use $index as the identifier. If a count is required you need to pre-increment the value or set it to 1 initially.

Yes, I know it is trivial sample code that doesn't matter, but good habits are worth acquiring. And distinguishing between a (1 based) count and a (0 based) index is a habit well worth acquiring!

---

DWIM is Perl's answer to Gödel

Gladly accepted your point ..
:)