my @a = (
  [qw/. . . # # # . . ./],
  [qw/. . # # . # # . ./],
  [qw/. # # . . . # # ./],
  [qw/# # . . . . . # #/],
  [qw/# # # # # # # # #/],
  [qw/# # . . . . . # #/],
  [qw/# # . . . . . # #/],
);