map {$a[int(rand(6) + 1)]++} 0 .. 5999;