my @interesting_values;
for (1...1000) {
   my $r = rand;
   if ($r > 0.5) {
       push @interesting_values, $r;
   }
}