Select Code to Download

use Data::Dumper;
my %hash = (
    key1 => 'value1',
...
print Dumper(%hash);  # okay, but not great
print "or\n";
print Dumper(\%hash); # much better

$VAR1 = 'key2';
$VAR2 = 'value2';
...
          'key2' => 'value2',
          'key1' => 'value1'
        };