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