use strict;
use warnings;
use Data::Dumper;
use Data::TreeDumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

my %struct = (foo=>'bar',baz=>{foobar=>[1,2,3=>{foo_bar_baz=>'Dies ist ein sehr langer Satz, der nicht in eine Zeile des Xterms passt ...'}]});

print Dumper(\%struct);
print DumpTree(\%struct);