#!/usr/bin/perl

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

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

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

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

exit;