$ 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>