my @array = 1..10;
for my $i (grep $_%2, 0..$#array) {
   my @chunk = @array[$i - 1, $i];
   print "Chunk: @chunk\n";
}
print "Original array is still intact! (@array)\n";