Array Perl

@array = (
    [1, 2],
    [3, 4],
);
print $array[1][1];
print $array[0][1];
print $array[1][0];