# perl
use warnings;
use strict;
my @good_ones = (100..110);
foreach (0..$#good_ones) {
   print "$_: $good_ones[$_] ...";
   if (rand() < 0.5) {
       splice @good_ones,$_,1;
   }
   print "($#good_ones)\n";
}