Select Code to Download

for my $x (@list) {
   do something with $x
}

while (my ($x,$y) = splice(@list, 0, 2)) {
   do something with $x and $y
}