Select Code to Download

use strict;                  # https://perlmonks.org/?node_id=11136582
use warnings;                # originally https://perlmonks.org/?displ
+aytype=displaycode;node_id=11136614;abspart=1;part=1
...
        if( $rand <= $dist->{$_} ){ return $_ }
    }
}

Frequencies:
$VAR1 = {
...
                   'B' => '0.636363636363636'
                 }
        };

------------------------------ Compression by gzip/gunzip

...
length of compressed data 42035
compressed to 20.0%
MATCH