Perl 复杂数据结构

$wife{"Jacob"} = ["Leah", "Rachel", "Bilhah", "Zilpah"];

$wife{"Jacob"}[0] = "Leah";

$wife{"Jacob"}[1] = "Rachel";

$wife{"Jacob"}[2] = "Bilhah";

$wife{"Jacob"}[3] = "Zilpah";

$kids_of_wife{"Jacob"} = {
　　"Leah"=> ["Reuben", "Simeon", "Levi", "Judah", "Issachar", "Zebulun"],
　　"Rachel" => ["Joseph", "Benjamin"],
　　"Bilhah" => ["Dan", "Naphtali"],
　　"Zilpah" => ["Gad", "Asher"],};


$kids_of_wife{"Jacob"}{"Leah"}[0]= "Reuben";
　　$kids_of_wife{"Jacob"}{"Leah"}[1]= "Simeon";
　　$kids_of_wife{"Jacob"}{"Leah"}[2]= "Levi";
　　$kids_of_wife{"Jacob"}{"Leah"}[3]= "Judah";
　　$kids_of_wife{"Jacob"}{"Leah"}[4]= "Issachar";
　　$kids_of_wife{"Jacob"}{"Leah"}[5]= "Zebulun";
　　$kids_of_wife{"Jacob"}{"Rachel"}[0] = "Joseph";
　　$kids_of_wife{"Jacob"}{"Rachel"}[1] = "Benjamin";
　　$kids_of_wife{"Jacob"}{"Bilhah"}[0] = "Dan";
　　$kids_of_wife{"Jacob"}{"Bilhah"}[1] = "Naphtali";
　　$kids_of_wife{"Jacob"}{"Zilpah"}[0] = "Gad";
　　$kids_of_wife{"Jacob"}{"Zilpah"}[1] = "Asher";