my %h;
$h{1, 2} = "hello";
$Data::Dumper::Useqq = 1;
print Dumper \%h;