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