$ perl -wE 'my $k = q{a.b}; my %h = ($k, 1); say exists $h{$k} ? 1 : 0;'
1
$ perl -wE 'my $k = q{a.b}; my %h = ($k, 1); say exists $h{quotemeta $k} ? 1 : 0;'
0