@foo = (
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9]
);
print $foo[2][1]; # prints 8