Perl: each on arrays

while (my ($index, $value) = each @a) {
   say "$index $value";
}

0 a
1 b
2 c