Help for this page

Select Code to Download

Select or download this

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

Select or download this

package feature::each_on_array;

...
}

1;