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 } ] );

##</code><code>##

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