Select Code to Download

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

my @dicearray = ('$dice1', '$dice2', '$dice3', '$dice4', '$dice5', '$d
+ice6');

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

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