I probably didn't express what I was hoping to do well enough so not many people hit on what I was asking. Thanks for the responses none the less. I found a method elsewhere that does what I want very well and is easier to impliment than the others that I saw. Here it is:
#!/usr/bin/perl -w
use strict;
my @arr;
map { $arr[rand 10]++ } 0..99;
print join(' ', @arr), "\n";