#!/usr/bin/perl
use warnings;

@freq = (1..10000);
for (1..10000)
{
 $freq [1+int(rand(54))]++;
}
@num = 0..54;

@freq = sort{$b <=> $a}@freq;