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

##</code><code>##

my @a = (
  [map{tr/./ /;$_} qw/. . . # # # . . ./],
  [map{tr/./ /;$_} qw/. . # # . # # . ./],
  [map{tr/./ /;$_} qw/. # # . . . # # ./],
  [map{tr/./ /;$_} qw/# # . . . . . # #/],
  [map{tr/./ /;$_} qw/# # # # # # # # #/],
  [map{tr/./ /;$_} qw/# # . . . . . # #/],
  [map{tr/./ /;$_} qw/# # . . . . . # #/],
);

##</code><code>##

my @a = (
  [split //, q/   ###   /],
  [split //, q/  ## ##  /],
  [split //, q/ ##   ## /],
  [split //, q/##     ##/],
  [split //, q/#########/],
  [split //, q/##     ##/],
  [split //, q/##     ##/],
);