#!/usr/bin/perl

use Tie::File;

my @item;
my $dbuncheck = tie (@item,'Tie::File','test',memory => '100000') or die $!;

for (1..10000) {
    push @item,'stuff' x 40;
    $dbuncheck->flush;
}