http://www.perlmonks.org?node_id=489144


in reply to Updating A Hash Recursively

Because the outer loop itterates over A-C and the inner loop itterates over W-Z so you generate:

AW, AX, AY, AZ CW, CX, CY, CZ BW, BX, BY, BZ

Perl is Huffman encoded by design.