my $bag = (1, 1, 1, 1, 2, 2, 3, 3, 3, 4, 5, 5).Bag; $bag.elems == 5 or die "Wrong element count"; $bag (cont) 1 or die "Wrong status";