Select Code to Download

#!/usr/bin/perl
use strict;
...
my @num = (0 .. 54);
my @freq;
++$freq[int(rand(55))] for 1 .. 10_000;

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