my @a = ("a", "b", "c");
for (@a) {
for (@a) {
print $_;
}
print "\n  $_\n";
}
__END__
abc
a
abc
b
abc
c

ちゃんとブロックローカル (?) だった。