use Data::Dumper;
my %hash = (
    # fill in blank
);
print Data::Dumper->Dump([\%hash],[qw(hash)]);