#!/usr/bin/perl

use strict;
use warnings;

my $times       = 20;
my $max         = 10;
my %histogram   = ();

$histogram{ int(rand($max))+1 }++ for 0..$times;
print $_ . ": " . $histogram{$_} . "\n" for sort keys %histogram;