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