Use Data::Dumper to look at the hash; set $Data::Dumper::Useqq to find spurious characters.

:D

sub dd {
  use Data::Dumper;
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}
[download]