>>946
>>948は仕様に忠実なんだけど、
同じことならハッシュの配列の方がuse strict;下でも動くし好ましいかな

$real [$no] {$koumoku} = $mana;