use strict;
use warnings;

use Data::Dumper;

my %hash = (
   this => [ 1, 2, 4, 8 ],
   that => { the => q{other} },
   );

print Data::Dumper->Dumpxs( [ \ %hash ], [ qw{ *hash } ] );