Select Code to Download

use Data::Dumper;

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

$VAR1 = {
          'foo' => bless( [
...
                                   }, 'DBM::Deep::Hash' )
                          ], 'DBM::Deep::Array' )
        };

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