use Data::Dumper;

...

{
    my $db = DBM::Deep->new( $db_file );
    $db->{key} = {};
    print "Dump: ", Dumper($db);
}