%struct1 = qw{
　　name hoge
　　year 20
　　next
};
$struct1{next} = \%struct2;
%struct2 = qw{
　　name foo　
};
print "$struct1{name}\n";
print "$struct1{year}\n";
print "${$struct1{next}}{name}\n";

こんな感じ　ｗ