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