sample without replacement

sample-wo-replacement.pl

#!/usr/bin/env perl

use Modern::Perl;
use List::Util qw/sum/;

my @elements = (["low", 10], ["mid", 100], ["high", 1000]);
my $accum = 0;

my $total = sum map {
    $_->[2] = $accum += $_->[1];
    $_->[1];
} @elements;

for (1..10) {
    my $found = 0;
    my $rand = int rand $total;
    say "Selected: ", map $_->[0], grep {
        if ($rand < $_->[2]) {
            $_->[2]--;
            ! $found++;
        }
    } @elements;
}