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

##</code><code>##

$a[int(rand(6) + 1)]++} for 0 .. 5999;
print "side $_: $a[$_]\n" for 1..6;