use Data::Dumper;

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