>>44
$list[$n] = {%data}; %data=(); $n++;

どうちがうかは自分で考えてね