%foo = (a'b => "foo");
$foo{c'd} = "foo";
print join "," keys %foo;
__END__
a::b,c::d