sample with replacement

sample-w-replacement.pl

#!/usr/bin/env perl

use Modern::Perl;
use List::Util qw/first 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 $rand = int rand $total;
    say "Selected: ",
        map $_->[0], first { $rand < $_->[2] } @elements;
}