Re^2: biased random number picking

[salva]

the slice is expensive and not really required:

my $choice = int(rand($#options + 1));
say 'Choice #', $_, ' is ', $options[$choice];
$options[$choice] = $options[-1];
pop @options;