rebkirl:

You can get both the index and the value from an array by iterating through it like this:

$ cat x.pl
use strict;
use warnings;

my @foo = qw( apple pear banana );

while (my ($x,$y) = each @foo) {
    print "<$x, $y>\n";
}

$ perl x.pl
<0, apple>
<1, pear>
<2, banana>
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.