my $sum = 100;
my $elements = 30;

my @array;
for (1..$sum) { 
  ++$array[ int rand $elements ];
}

$array[$_] ||= 0 for @array;