Mega Code Archive

 

Categories / Perl / Array

 

Reference the outter array of an two dimensional array

@array = (     ["A", "B"],     ["C", "F", "G"],     ["D", "E"], ); for $loopindex (0..$#array) {     print join (", ", @{$array[$loopindex]}), "\n"; }