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

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

print %ha;
'