Select Code to Download

 use strict;
use warnings;
use Data::Dump qw/pp dd/;
...
}

{
  "classic length" => 5.64385618977472,
...
  "line" => "15.0616 bytes",
  "old" => 13.3880888888889,
} at d:/exp/huffman.pl line 98.

{
  ""    => "0110",
...
  "8"   => 1111,
  "9"   => "0011",
} at d:/exp/huffman.pl line 83.