my @subset = grep rand(100) < 75, @input;

##</code><code>##

my @subset = grep rand() < .75, @input;