my ( %c, @r );
$r[ int( rand(54) ) + 1 ]++ for ( 1 .. 10_000 );
printf "%2s $r[$_]\n", $_ for (
  sort { $r[$b] <=> $r[$a] || $a <=> $b } map {
    my $x;
    1 while ( $x = int( rand(54) ) + 1 and $c{$x}++ );
    $x
  } ( 1 .. 6 )
);