my $mix = (1 => 0.8, 2 => 0.1, 3 => 0.05, 4 => 0.02, 5 => 0.01).Mix; loop (my $i = 0; $i < 10; $i++) { $mix.roll(10).sort.say; }