use Data::Dumper;
my %hash = (
        this => "one",
        that => "two",
    );
print Dumper(\%hash);

##</code><code>##

$VAR1 = {
          'that' => 'two',
          'this' => 'one'
        };

##</code><code>##

use Data::Dumper::Simple;
my %hash = (
        this => "one",
        that => "two",
    );
print Dumper(%hash);

##</code><code>##

%hash = (
          'that' => 'two',
          'this' => 'one'
        );