$ perl -MO=Deparse,-p -Mstrict -Mwarnings -e 'map{("$_" => 1)} ();'  
use warnings;
use strict 'refs';
map({("$_", 1);} ());
-e syntax OK