perl -MO=Deparse -e'
use warnings;
use strict;

my %ha = ( -foo => "bar");

print %ha;
'
##</code><code>##

use warnings;
use strict;
my %ha = (-'foo', 'bar');
print %ha;
-e syntax OK