Maybe splice is your friend:

my $elementsToGet = 2; # how many elements shell be in @sublist
my @newElements = @elements;
while (my @subList = splice(@newElements, 0, $elementsToGet)) {

  # do something with @subList

} # while
Beware that @newElements might be empty after the while...
[download]

or, with a counter:

for (my $i=0; $i<=$#elements; $i+=2) {

  # do something with $elements[$i] and $elements[$i+1]

} # for
[download]

I haven't tested these codes.

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"