my @dicearray = (
   <<done,
    ##############
    #            #
    #            #
    #      #     #
    #            #
    #            #
    ##############
done
  <<done,
    ##############
    #            #
    #            #
    #   #   #    #
    #            #
    #            #
    ##############
done
   ...
);