#!/usr/bin/perl

use Tie::File;

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

for (1..30000) {
    unshift @item,'stuff' x 40;
}