my $dumper = Data::Dumper->new( purity => 1, terse => 1, deepcopy => 1 );
warn $dumper->Dump( [ $foo, \%this, \@array, \%that ] );