#!/usr/bin/perl

use Tie::Persistent;
my %a = ();
tie %a , 'Tie::Persistent', "bigdatafile" , 'rw';
for my $i (1...5000) {
        $a{"ENTRY$i"}{"has"}{"a lot"}{"of data"};
}

untie %a;