foreach (@array) {
   my $i = $_;  # $i is a copy.
   ...
}

##</code><code>##

foreach (@array) {
   local $_ = $_;  # $_ is a copy.
   ...
}