考えた方

Perlで、複雑なデーター構造からの値を取り出し方がイマイチ分からなかった。
リファレンス？デリファレンス？無名配列？無名ハッシュ？慣れない頭には難しい．．．

結局アミダくじのように考えたら簡単にできた。図参照。

（テキトーに作った構造なのでツッコミは勘弁を。。。当方、かなり未熟です）

書き方が汚いと読み取りにくい。きれいに書かないといけないですね。