#!/usr/bin/perl -w

use strict;
use DB_File;
use Fcntl;

unlink 'data.db';

tie my %hash, 'DB_File', 'data.db', O_RDWR|O_CREAT;

foreach my $size (100, 200, 500, 900, 1000) {
    my $k = 'k' x $size;
    my $v = 'v' x $size;
    $hash{ $k } = $v;
}

untie %hash;