print+( @orderedRands = grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];;
1 1 1 1 2 2 3 3 4 5 5 5 6 6 7 8 9 9 10 11

print+( @orderedRands = grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];;
2 2 2 3 4 5 5 5 9 9 10 12 13 13 14 14 16 17 18 18

print+( @orderedRands = grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];;
1 2 4 4 4 4 4 4 6 6 6 8 8 8 10 11 11 12 12 12

print+( @orderedRands = grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];;
1 1 3 3 3 4 4 5 6 6 7 8 8 9 10 10 11 12 14 15

print+( @orderedRands = grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];;
1 1 2 2 2 3 3 3 4 5 5 5 6 7 7 8 10 11 12 13