[Perl 6] Sampling from a Bag.

my $bag = (1 => 9, 2 => 5, 3 => 3, 4 => 2, 5 => 1).Bag;

loop (my $i = 0; $i < 10; $i++) {
    $bag.roll(5).sort.say;
}