Select Code to Download

{
  "aesG gly4" => 2,
  "aesG phil" => 2,
...
  "gly4 tomD" => 3,
  "phil tomD" => 2,
}

use Data::Dump "pp";
my %count;
...
aesG tomD gly4 phil
aesG phil
aesG tomD gly4

{
  "aesG\34gly4" => 2,
...
  "gly4\34tomD" => 3,
  "phil\34tomD" => 2,
}