Select Code to Download

$ perl -le 'my $x = 0; print $x++'
0
$ perl -le 'my $x = 0; print ++$x'
1

# Fill @array with ten random numbers.
my $i = 0; 
$array[$i++] = rand() while $i < 10;