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

##</code><code>##

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

##</code><code>##

print "Rolling first die resulted in : \n";
print $dicearray[$diceone-1];
print "Rolling second die resulted in : \n";
print $dicearray[$dicetwo-1];