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

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

1. トップ
2. perl
3. 今日のぺるる　$_ の続き。

1. トップ
2. prog
3. 今日のぺるる　$_ の続き。