Array Perl

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