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