#!/usr/bin/perl

use strict;
use warnings;
use DBM::Deep;

my $db = new DBM::Deep "db.file";

$db->{hash} = { key => [10] };

print $db->{hash}->{key}->[0];

exit;