my $i=0; my $x = rand $i++; print "$x\n";