my $diceone = int(rand(5)) + 1;
my $dicetwo = int(rand(5)) + 1;