my @numbers;
$numbers[ int(rand(54)) + 1 ]++ for 1 .. 10_000;
print join ', ', ( map { "$_ ".($numbers[$_]||'0') } reverse sort { $numbers[ $a ] <=> $numbers[ $b ] } (1 .. 54) )[0..5];