use Data::Dumper;

my $d = new Data::Dumper();
$d->Terse(0)->Purity(1)->Deepcopy(1)->Indent(0);
...

print $d->Dump($this);
...
print $d->Dump($that);
...
print $d->Dump($otherthing);
...