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