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