#!/usr/bin/perl -w
use strict;

my %histo;
for (1..10)
{  
   my $count=0;      
   while ( (my $r = int(rand(6)) +1 ) != 6) 
   {                #int(rand(6) generates nums 0-5
     $count++;
     $histo{$r}++;
   }
 #update  ####  $count++;  # there is an off by one error below
   print "took $count tries to get a 6\n";
   $histo{6}++;
}
foreach my $side (sort keys %histo)
{
   print "number $side rolled $histo{$side} times\n";
}

__END__
took 18 tries to get a 6
took 5 tries to get a 6
took 9 tries to get a 6
took 1 tries to get a 6
took 3 tries to get a 6
took 1 tries to get a 6
took 1 tries to get a 6
took 0 tries to get a 6
took 15 tries to get a 6
took 13 tries to get a 6

number 1 rolled 15 times
number 2 rolled 17 times
number 3 rolled 11 times
number 4 rolled 15 times
number 5 rolled 8 times
number 6 rolled 10 times