Perl内置的数据结构数组，散列都是单层次的数据结构，在日常使用中，我们经常需要多几层的嵌套数据结构。
在Perl中，Perl允许组合和嵌套数组和散列，以创建任意复杂的数据结构。通过引用，可以创建多层次复杂的数据结构。
我们通过具体例子来看如何创建和使用嵌套的数据结构。
我们有以下的一些数据，需要读取到合适的数据结构中，把它们写在程序最后的数据段中：
__DATA__
tom
cat
easy
perl
我们可以看到每行的数据格式都是一样的，可以以名字来区分，因此外层的数据使用散列比较合适，内层因为只是2个数字，因此直接使用数组更为合适，也就是我们需要一个数组的散列，这样的数据结构。
首先定义外围数据结构，散列：
my%hash;
逐行读取data段数据：
while(DATA){
过滤掉空行：
nextif/^\s*$/;
根据非空字符来分割数据：
my
values=split/\s+/,$_;把第一个数据拿出来当散列的键
my$name=shift
values;剩下的数据的引用来当作散列的值，注意，这边只能使用引用，不可以把数组来当作散列的值
$hash{$name}=\
values;}
读取数据：
formy$name(keys%hash){
由于我们存储的是数组的引用，因此读出来的也是引用
my$valueref=$hash{$name};
我们需要进行解引用
my
value=$valueref;print"$name:$value[0]$value[1]\n";
}
读取部分是为了看的更清晰所以这么写，熟悉了以后一般可以如下省略：
print"$_:$hash{$_}-[0]$hash{$_}-[1]\n"forkeys%hash;
EasyPerl如果有帮助，请适当的赞赏，谢谢