map ++$array[rand $elements], 1..$sum; 

##</code><code>##

++$array[rand $elements] for 1..$sum;