use Data::Dumper;

# %x is the tied hash.
$x{foo} = [ 1 .. 3, { a => { b => 'c' } } ];
print Dumper \%x;

##</code><code>##

$VAR1 = {
          'foo' => bless( [
                            '1',
                            '2',
                            '3',
                            bless( {
                                     'a' => bless( {
                                                     'b' => 'c'
                                                   }, 'DBM::Deep::Hash' )
                                   }, 'DBM::Deep::Hash' )
                          ], 'DBM::Deep::Array' )
        };

##</code><code>##

$VAR1 = {
          'foo' => 'ARRAY(0x18014f4)'
        };