in reply to Selecting random records from an array
my $n = @input*.75;
my $m = @input;
my @subset = grep rand($m--)<$n?$n--:0, @input;
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (382 votes). Check out past polls.