my $max = 4999;
$w[$_] = int rand(10) foreach (0..$max);