Array Perl

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