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