my @copy = @array;
while (my ($first, $second) = splice @copy, 0, 2) {
  # do stuff
}