% perl -I. -Mfeature::each_on_array -E'say $^V; @a = (qw/a b c/); while (($i, $e) = each @a) { say $i, $e }'
v5.10.1
0a
1b
2c