No, but you can use my:

  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";
[download]

Note though that modifications of an @array element (i.e. via $array[$n]) will disappear when the scope is left. This is simply because the inner @array simply is another variable with the values copied. The idea of Juerd's routine was that the elements would be aliased but the array different.

Hope I've helped,
ihb