### An object like this...
my $obj = bless( {
    this_object_has_some_long_keys => {
        and_some_of_them_are_nested => {
            fairly_deeply => 'Foo!',
        }
    },
}, 'Some::Random::ClassName' );

### Will end up like this with Data::Dumper...
bless({
  "this_object_has_some_long_keys" => { "and_some_of_them_are_nested" => { fairly_deeply => "Foo!" } },
}, "Some::Random::ClassName")

### YAML output is more readable, IMHO
--- !!perl/hash:Some::Random::ClassName
this_object_has_some_long_keys:
  and_some_of_them_are_nested:
    fairly_deeply: Foo!