Select Code to Download

use Algorithm::Bucketizer;
while (my $in = <>) {
...
        join(", ", map {"$_ ($counts{$_})"} $_->items ),
        "\n" for $b->buckets;
}

chhbfbjjjcgaiiaachbaefeabcbjffdgaggbgccaihgjddedfheejdigcdeiacebdehfig
+egifibdabhfdihbdhifcgjfjhcaejj
1 => f (10), g (10)
...
2 => b (7), a (1)
3 => c (2), d (6)
4 => g (4), h (4)