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