>>373
分りました。あと、以下みたいに my で作った奴にも local がちゃんと？動作するみたいなんですが、
localってグローバル変数だけじゃなく、レキシカルなものにも動作するもんなんですか？

use strict;
use warnings;

my %h = (a=>'A', b=>'B');
{
　local $h{a} = '_a_';
　print $h{a},"\n";
}
print $h{a}, "\n";