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