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