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