my @array = 1..10;
  {
    my @array = @array;
    while (my @chunk = splice @array, 0, 2) {
      print "Chunk: @chunk\n";
    }
  }
  print "Original array is still intact! (@array)\n";