Select Code to Download

#!/usr/bin/env perl

...
}

dd \%count;

{
  A => { A => 1 },
...
  BCDD => { B => 1, C => 1 },
  CCD => { C => 2 },
}