つかメンバ変数にアクセスするのにいちいち
$this->{a}とか書かないとならんperlは異常