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

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

##</code><code>##

{
    my $temp  = $freq[$i];      # swap frequencies
    $freq[$i] = $freq[$j];
    $freq[$j] = $temp;

    $temp     = $num[$i];       # swap numbers
    $num[$i]  = $num[$j];
    $num[$j]  = $temp;
}