#!/usr/bin/perl -w
use MLDBM::Sync;
use Fcntl qw(:DEFAULT);

$tied_hash{list} = [1,2,3,4,5];
#my $sync_dbm_obj = tie %tied_hash, 'MLDBM::Sync', '/tmp/mldbmsync', O_CREAT|O_RDWR, 0640;
push @{$tied_hash{list}},6;
@values = @{$tied_hash{list}};
print @values;