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