use Data::Dumper;
my %hash = (
    key1 => 'value1',
    key2 => 'value2'
);

print Dumper(%hash);  # okay, but not great
print "or\n";
print Dumper(\%hash); # much better

##</code><code>##

$VAR1 = 'key2';
$VAR2 = 'value2';
$VAR3 = 'key1';
$VAR4 = 'value1';
or
$VAR1 = {
          'key2' => 'value2',
          'key1' => 'value1'
        };