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

##</code><code>##

      for ($i=0; $i<$i_max; $i++) {  
 
        if ($z < $z_best) {