Array Perl

$array[0] = ["A", "AA"];
$array[1] = ["B", "BB", "CCC"];
$array[2] = ["D", "DD"];
print $array[1][1];