use 5.012;
use warnings;

my %r;
for(1..1000){
    my $n = join('', sort{ (rand() < 0.5) ? -1 : 1 } (1..3));
	$r{$n}++;
}

foreach(sort keys %r){
	say "$_ => $r{$_}";
}

__END__

-+- 1,2 -+- 1,3 -+- 2,3 - 123
 |       |       +- 3,2 - 132
 |       |
 |       +- 3,1 - 321
 |
 +- 2,1 -+- 2,3 -+- 1,3 - 213
         |       +- 3,1 - 231
         |
         +- 3,2 - 312

123, 132, 213, 231 の確率 1/8
312, 321 の確率 1/4