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