use feature::each_on_array;
@a = (1..1000);
while (my ($idx, $item) = each @a) { }