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