How do I read two items at a time in a Perl foreach loop?

Question

What I\'m looking for is something like:

@list = qw(1 2 3 4 5 6);
foreach (@list) {
  #perl magic goes here 
  print \"i: $i, j:$j\\n\";
}

Answer 1

I think more simpler way is to use old poor 'each'. Straight like this:

while (my ($key,$value) = each @list) {
        print "$key=$value\n";
}

Updated:

Yes, it's wrong. One should convert list to hash first but it could be too exensive:

my %hash = (@list);
while (my ($key,$value) = each %hash) {
        print "$key=$value\n";
}