How do I create a 2D array in Perl

my @array = ([1, 2, 3], [4, 5, 6], [7, 8, 9]); my $top_left     = $array[0][0];  # 1 my $bottom_right = $array[2][2];  # 9 print "@$_\n" for @array;