Syntax errors from the absence of commas between lists, and a surprise from trying to dimension the array. You are assigning to one element of the array.

A multidimensional array in Perl is a one-dimensional array of references to arrays. What you mean to write is:

my @a = (
           [' ',' ',' ','#','#','#',' ',' ',' '],
           [' ',' ','#','#',' ','#','#',' ',' '[,
           [' ','#','#',' ',' ',' ','#','#',' '],
           ['#','#',' ',' ',' ',' ',' ','#','#'],
           ['#','#','#','#','#','#','#','#','#'],
           ['#','#',' ',' ',' ',' ',' ','#','#'],
           ['#','#',' ',' ',' ',' ',' ','#','#']
        );
[download]