高人指教在数组的哈希表中插入数组里的哈希表.

高人指教在数组的哈希表中插入数组里的哈希表.
想实现的结构为
$[0]->$[0]{child}=a;
$[0]->$[0]{ot}=b;
$[0]->$[1]{child}=a;
$[0]->$[1]{ot}=a;
$[1]->$[0]{child}=a;
$[1]->$[1]{child}=b;
$[1]->$[0]{child}=a;
$[1]->$[1]{child}=a;

数据(file.data):
a ssss
child a b
child a a
a xxxx
child a b
child a a

程序:
&readfile("file.data", \@forums);

$ci = 0;
foreach (@forums)
{
@ls = split(/\t/, $_);
if($ls[0] ne "child")
{
my %row_data;
$row_data{JOB} = $ls[1];
push(@list, \%row_data);
$ci++;
}
else
{
my %row_data1;
$row_data1{JOB} = $ls[1];
push(@ss, \%row_data1);
}
}

数据最终变为结构:

用引用.

自找麻烦。.