Careful when using Data::Dumper to dump strings.

use Data::Dumper;
$h{"a", 1, "b", 2} = 1;
$h{a1b2} = 2;
print Dumper \%h;
[download]

$VAR1 = {
          'a1b2' => 2,
          'a1b2' => 1
        };
[download]

But:

use Data::Dumper;
$h{"a", 1, "b", 2} = 1;
$h{a1b2} = 2;
$_ = Dumper \%h;
s/(\P{IsPrint})/"\\x{".sprintf "%04x}", ord $1/ge;
print
[download]

$VAR1 = {
          'a1b2' => 2,
          'a\x{001c}1\x{001c}b\x{001c}2' => 1
        };
[download]

("\x{001c}" eq "\034" eq chr(28) eq $; See first reply.)