my %a = ();
$a{$ika}->{hoge} = $hoge;
$a{$ika}->{hogehoge} = qq(@hogehoge);

みたいな使い方が出来てるんだけど
大丈夫かな…