# old and busted
  my $record = $db{some_key};
  $record->[2] += 100;
  $db{some_key} = $record;

  # new hotness
  $db{some_key}[2] += 100;

##</code><code>##

#!/usr/bin/perl 
use strict;
use warnings;

use MLDBM::Easy;                         
use Fcntl;                         

my %hash; 
tie (%hash, 'MLDBM', 'testmldbm', O_CREAT|O_RDWR, 0640) or die $!;

$hash{value1} = [ '0', '1', '2' ];  # assign anonymous array         
print "@{$hash{value1}}[0, 1, 2]\n";


$hash{value1}[2] += '1';      # add/modify element 2

untie %hash;

tie (%hash, 'MLDBM', 'testmldbm', O_RDWR, 0640) or die $!;
print "@{$hash{'value1'}}[0, 1, 2]\n";
untie %hash;