$ perl -Mstrict -Mwarnings -E '
> my %x = (a => 1);
> say +(%x eq q{a}) ? 1 : 0;
> say %x;
> say qq{@{[%x]}};
> '
0
a1
a 1