#!/usr/bin/perl

use strict;
use warnings;

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

@randoms = map { int(rand($max))+1 } 0 .. $times;
$histogram{ $_ }++ for @randoms;
print $_ . ": ". $histogram{$_} ."\n" for sort { $a <=> $b } keys %histogram;