Help for this page
my @subset = grep rand(100) < 75, @input;
my @subset = grep rand() < .75, @input;