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