もう一個おながいします。
クラスでインスタンス毎に別個の値を保存したい連想配列があるのですが
どういう風に実装すればいいのかわかりません。
以下のようなコードだと複数のインスタンスから%aにアクセスされると
まずいことになっちゃいますよね？

my %a;

sub new {
my $self = shift;
my $obj = {
name => shift
};
bless $obj,$self;
$obj;
}