foreach (qw/foo bar/) {
  print;
  print foreach (qw/one two three/);
}
# output: fooonetwothreebaronetwothree

##</code><code>##

foreach (qw/foo bar/) {
  print;
  my @list = qw/one two three/;
  print while (shift @list); 
}
# output: foofoofoofoobarbarbarbar

##</code><code>##

 
foreach (qw/foo bar/) {
  print;
  my @list = qw/one two three/;
  print while (local $_ = shift @list); 
}
# output: fooonetwothreebaronetwothree

##</code><code>##

{ local $_; print while (shift @list); }

##</code><code>##

# will not localize $_ to the while loop
local $_; print while (shift @list);