my $i;
if (rand > 0.5) {
  $i = 1;
};