Help for this page
$ 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;