@array = ('a');
foreach (@array) {
   # $_ is an alias for $array[0].
   while (<DATA>) { }
   # $_ and $array[0] are clobbered
   print("[$_]$/");      # Prints "[]"
}
print("[$array[0]]$/");  # Prints "[]"

##</code><code>##

@array = ('a');
foreach (@array) {
   # $_ is an alias for $array[0].
   local $_ = $_;  # This $_ is not an alias for $array[0].
   while (<DATA>) { }
   # $_ is clobbered, but not $array[0]
   print("[$_]$/");      # Prints "[]"
}
print("[$array[0]]$/");  # Prints "[a]"

##</code><code>##

@array = ('a');
foreach (@array) {
   # $_ is an alias for $array[0].
   {
      local $_;  # This $_ is not an alias for $array[0].
      while (<DATA>) { }
   }
   # Neither $_ nor $array[0] are clobbered
   print("[$_]$/");      # Prints "[a]"
}
print("[$array[0]]$/");  # Prints "[a]"

##</code><code>##

@array = ('a');
foreach (@array) {
   # $_ is an alias for $array[0];
   while (my $line = <DATA>) { }
   # Neither $_ nor $array[0] are clobbered
   print("[$_]$/");      # Prints "[a]"
}
print("[$array[0]]$/");  # Prints "[a]"