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

##</code><code>##

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