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;
Give me a lever long enough ...
Eppur si muove
Mr. Watson – Come here – I want you
Mary had a little lamb
That's one small step for a man ...
SCE to AUX
I think I'll stop here
Results (220 votes). Check out past polls.