Select Code to Download

my @array = (1..12);
while(my @els = elements @array, 3 ){
...
}

my @five = elements @array 5; # Would get (4,5,6,7,8)!DWIM

{
    while (my @els = elements @giantarray, 10 ){
...
    redo if $someothercondition;

}