use strict;
use warnings;
use Data::Dumper;

my %hash = qw/this 1 that 2 those 3 them 4/;

$Data::Dumper::Terse++;
$Data::Dumper::Quotekeys = 0;
$Data::Dumper::Indent = 1;

print Dumper \%hash;

__OUTPUT__
{
  those => '3',
  them => '4',
  that => '2',
  this => '1'
}