V:\>perl -MO=Deparse -e "%a = (-foo => 1);"
(%a) = (-'foo', 1);
-e syntax OK