i'd use map for a one liner to replace for:

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

I wouldn't. This is clearer, faster, and one character shorter:

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

Help stamp out void maps and greps!

-- Randal L. Schwartz, Perl hacker