note
LanX
<c>
for my $a1 (@x) {
for my $a2 (@$a1) {
for my $a3 (@$a2) {
... # hope you get the pattern by now
}
}
}
</c><P>
For covering arbitrary depth of nesting you could apply a recursive function (a so called "walker")<P>
If the elements are other than array_refs you might want to add cases after testing [DOC://ref|<tt>ref</tt>] $aX. <P>
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf<br>
<sub>(addicted to the Perl Programming Language :)
<br> <i> [id://1153804|Wikisyntax for the Monastery]</i>
<small><strike>Football</strike>Perl is like chess, only without the dice</small>
</sub> <P>
</div></div><!-- Wiki2Monks {"version":1.142} -->
1222715
1222715