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