my @dicearray = qw/$dice1 $dice2 $dice3 $dice4 $dice5 $dice6/;

##</code><code>##

my @dicearray = ('$dice1', '$dice2', '$dice3', '$dice4', '$dice5', '$dice6');

##</code><code>##

my @dicearray = ($dice1, $dice2, $dice3, $dice4, $dice5, $dice6);

##</code><code>##

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