#!/usr/bin/perl -w

use strict;
my @arr;       
map { $arr[rand 10]++ } 0..99;       
print join(' ', @arr), "\n";