arrays are weird

arrays.pl

my @map = (
    ['#','#','#','#','#'],
    ['#','.','.','.','#'].
    ['#','.','.','.','#'].
    ['#','.','.','.','#'].
    ['#','.','.','.','#'].
    ['#','#','#','#','#']);

for(my $y, $y < 5; $y++;) {
    for(my $x, $x < 4; $x++;) {
	addch($y,$x,@map[$y][$x]);
    }
}