in reply to bareword hash keys
$var{test.dot} = "a"; print keys %var; [download]
$ 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. [download]
Makeshifts last the longest.