Array Perl

use strict vars;
$array = [
    ["A", "E"],
    ["B", "F", "G"],
    ["C", "D"],
];
print $array[0][0];