#!/usr/bin/perl -w

use strict;

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

print "\$diceone is $diceone and \$dicetwo is $dicetwo\n";


my $dice1;
my $dice2;
my $dice3;
my $dice4;
my $dice5;
my $dice6;

$dice1 = <<done;
    ##############
    #            #
    #            #
    #      #     #
    #            #
    #            #
    ##############
done

$dice2 = <<done2;
    ##############
    #            #
    #            #
    #   #   #    #
    #            #
    #            #
    ##############
done2

$dice3 = <<done3;
    ##############
    #            #
    # #          #
    #     #      #
    #        #   #
    #            #
    ##############
done3

$dice4 = <<done4;
    ##############
    #            #
    # #      #   #
    #            #
    # #      #   #
    #            #
    ##############
done4

$dice5 = <<done5;
    ##############
    #            #
    # #      #   #
    #     #      #
    # #      #   #
    #            #
    ##############
done5
$dice6 = <<done6;
    ##############
    #            #
    # #  #   #   #
    #            #
    # #  #   #   #
    #            #
    ##############
done6

my @dicearray = qw/$dice1 $dice2 $dice3 $dice4 $dice5 $dice6/;
#print "\$diceone is $diceone\n";
#print "printing \$dice6 is \n $dice6\n";
#print "$dice3\n";

my $dice;

print "Rolling first dice resulted in : \n";
my $result1 =  $dicearray[$diceone-1];
foreach $dice (@dicearray) {
      if ( $dice eq $result1) {
              print "$dice\n";
              last;
       }
}