Tabletop game probability

Program

#!/usr/bin/perl                                                                               

for $p (1..6) {for $q (1..6) {for $r (1..6) {
  my @dice = sort { $a <=> $b } $p, $q, $r;
  $count{join "-", @dice}++;
}}}

for my $roll (sort keys %count) {
  printf "%5s %3d %5.2f%%\n",
    $roll, $count{$roll}, $count{$roll}*100/216;
}

Results (ordered by likelihood)

1-2-3   6  2.78%
1-2-4   6  2.78%
1-2-5   6  2.78%
1-2-6   6  2.78%
1-3-4   6  2.78%
1-3-5   6  2.78%
1-3-6   6  2.78%
1-4-5   6  2.78%
1-4-6   6  2.78%
1-5-6   6  2.78%
2-3-4   6  2.78%
2-3-5   6  2.78%
2-3-6   6  2.78%
2-4-5   6  2.78%
2-4-6   6  2.78%
2-5-6   6  2.78%
3-4-5   6  2.78%
3-4-6   6  2.78%
3-5-6   6  2.78%
4-5-6   6  2.78%
1-1-2   3  1.39%
1-1-3   3  1.39%
1-1-4   3  1.39%
1-1-5   3  1.39%
1-1-6   3  1.39%
1-2-2   3  1.39%
1-3-3   3  1.39%
1-4-4   3  1.39%
1-5-5   3  1.39%
1-6-6   3  1.39%
2-2-3   3  1.39%
2-2-4   3  1.39%
2-2-5   3  1.39%
2-2-6   3  1.39%
2-3-3   3  1.39%
2-4-4   3  1.39%
2-5-5   3  1.39%
2-6-6   3  1.39%
3-3-4   3  1.39%
3-3-5   3  1.39%
3-3-6   3  1.39%
3-4-4   3  1.39%
3-5-5   3  1.39%
3-6-6   3  1.39%
4-4-5   3  1.39%
4-4-6   3  1.39%
4-5-5   3  1.39%
4-6-6   3  1.39%
5-5-6   3  1.39%
5-6-6   3  1.39%
1-1-1   1  0.46%
2-2-2   1  0.46%
3-3-3   1  0.46%
4-4-4   1  0.46%
5-5-5   1  0.46%
6-6-6   1  0.46%

Results (ordered by roll)

1-1-1   1  0.46%
1-1-2   3  1.39%
1-1-3   3  1.39%
1-1-4   3  1.39%
1-1-5   3  1.39%
1-1-6   3  1.39%
1-2-2   3  1.39%
1-2-3   6  2.78%
1-2-4   6  2.78%
1-2-5   6  2.78%
1-2-6   6  2.78%
1-3-3   3  1.39%
1-3-4   6  2.78%
1-3-5   6  2.78%
1-3-6   6  2.78%
1-4-4   3  1.39%
1-4-5   6  2.78%
1-4-6   6  2.78%
1-5-5   3  1.39%
1-5-6   6  2.78%
1-6-6   3  1.39%
2-2-2   1  0.46%
2-2-3   3  1.39%
2-2-4   3  1.39%
2-2-5   3  1.39%
2-2-6   3  1.39%
2-3-3   3  1.39%
2-3-4   6  2.78%
2-3-5   6  2.78%
2-3-6   6  2.78%
2-4-4   3  1.39%
2-4-5   6  2.78%
2-4-6   6  2.78%
2-5-5   3  1.39%
2-5-6   6  2.78%
2-6-6   3  1.39%
3-3-3   1  0.46%
3-3-4   3  1.39%
3-3-5   3  1.39%
3-3-6   3  1.39%
3-4-4   3  1.39%
3-4-5   6  2.78%
3-4-6   6  2.78%
3-5-5   3  1.39%
3-5-6   6  2.78%
3-6-6   3  1.39%
4-4-4   1  0.46%
4-4-5   3  1.39%
4-4-6   3  1.39%
4-5-5   3  1.39%
4-5-6   6  2.78%
4-6-6   3  1.39%
5-5-5   1  0.46%
5-5-6   3  1.39%
5-6-6   3  1.39%
6-6-6   1  0.46%