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