#!/usr/bin/perl
use warnings;
use strict;
use DBM::Deep;

my $db = DBM::Deep->new( "ztest1.db" );

$db->{mykey} = "myvalue";

#if you comment this line, it dosn't gain
$db->{myhash} = {};

$db->{myhash}->{subkey} = "subvalue";

print $db->{mykey}, "\n";
print $db->{myhash}->{subkey} , "\n"; 

foreach my $key (keys %$db) {
   print "$key: " . $db->{$key} . "\n";
  }