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