[Perl 6] Mix Demo

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; 
}