my $range=12;
my $low_end=6;
my $dice=1.2;
my %freq = ();

for (1..50000) {
  $freq{ roll_dice($low_end, $range, $dice) }++
}
print "$_: $freq{$_}\n" for sort {$a<=>$b} keys %freq;

sub roll_dice {
  my ($low_end, $range, $dice) = @_;
  my $result = 0;
  my $i;
  for ($i = $dice; $i >=1; --$i) {
      $result += rand($range);
  }
  $result += rand($range) * $i;
  int($low_end) + int($result/$dice);
}