Help for this page
perl -MO=Deparse -e' use warnings; use strict; ... print %ha; '
use warnings; use strict; my %ha = (-'foo', 'bar'); print %ha; -e syntax OK