$ perl
use strict;
my %var;
$var{test.dot} = "a";
^D
Bareword "test" not allowed while "strict subs" in use at - line 3.
Bareword "dot" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.