#!/usr/bin/perl
use strict;
use warnings;

my @num = (0 .. 54);
my @freq;
++$freq[int(rand(55))] for 1 .. 10_000;