Select Code to Download

sub rolldice()
{
        my $roll = int(rand(12)) + 1;
        return $roll;
}

#!c:\perl\bin\perl.exe

...
  my $n = sprintf("%02d",$i);
  print "$n = $rollhashes[0]{$i}\t\t$n = $rollhashes[1]{$i}\n";
}

USING TWO DICE:

...
10 = 856                10 = 821
11 = 891                11 = 841
12 = 823                12 = 848