4.9 レキシカル変数（my変数）についての注意事項

foreach (1..10) {
　　my($square) = $_ * $_;
　　print "$_ squared is $square.\n";
}

こういう場合、$squareはこのforeach文内のみ有効だそうです。
『初めてのPerl』にも書いてある通り、
メンテナンス上素敵な仕様です。
CやJavaではこの場合どうだったのか覚えてませんが、(ぉぃ
確かprivateであっても関数全体に有効な変数に
なったような気がします。（適当...）