my @a = (1 .. 9);  # for instance!!
for my $e (@{[@a]}) {
  $e += 1;
}
[download]

@{[@array]} makes an anonymous copy so you won't clobber the elements in the original array.