Select Code to Download

while(@arr) {
    my ($x,$y) = (shift(@arr), shift(@arr));
    ...
    }

use List::MoreUtils qw(natatime);
;;
...
while (my ($x, $y) = $it->()) {
    ...
    }