$ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
    my %x = (a => 1);
    print Dumper \%x;
'
$VAR1 = {
          'a' => 1
        };