use FastEAV;
my $f = FastEAV->new( file => "personen.eav", lock => 1) or die $^E;
# Personen in Array
my $per = [
    {name => 'Hinz', vname=> 'Horst'},
    {name => 'Kunz', vname=> 'Erwin'},
    {name => 'Huber', vname=> 'Karl-Heinz'},
    {name => 'Haar', vname=> 'Franz'}
];
foreach my $e ( 0 .. scalar @$per - 1 ){
    # [index] + 1
    $f->checkin(1+$e, %{$per->[$e]});
}
$f->write;
$f = undef;

# Personen wiedr auslesen
my $dal = FastEAV->new( file => "personen.eav") or die $^E;
foreach my $ent( $dal->count){
    say Dumper $dal->checkout($ent);
}


# nun eine Hash Of Hashes
my $eav = {
    1 => {name => 'Hinz', vname=> 'Horst', plz => 12345},
    2 => {name => 'Kunz', vname=> 'Erwin', plz => 55555},
    a => {name => 'Huber', vname=> 'Karl-Heinz', plz => 11011},
    b => {name => 'Haar', vname=> 'Franz', ort => 'Erfurt', plz => 99081}
};

foreach my $ent ( keys %$eav ){
    $dal->checkin($ent, %{$eav->{$ent}} );
}
$dal->write;
undef $dal;

# Kontrolle on alles gespeichert wurde
my $fast = FastEAV->new( file => "personen.eav") or die $^E;
foreach my $ent( $fast->count){
    say Dumper $fast->checkout($ent);
}

# Ausgabe
$VAR1 = {
          'name' => 'Haar',
          'vname' => 'Franz'
        };

$VAR1 = {
          'name' => 'Hinz',
          'vname' => 'Horst'
        };

$VAR1 = {
          'name' => 'Huber',
          'plz' => '11011',
          'vname' => 'Karl-Heinz'
        };

$VAR1 = {
          'name' => 'Huber',
          'vname' => 'Karl-Heinz'
        };

$VAR1 = {
          'name' => 'Haar',
          'ort' => 'Erfurt',
          'plz' => '99081',
          'vname' => 'Franz'
        };

$VAR1 = {
          'name' => 'Kunz',
          'vname' => 'Erwin'
        };

$VAR1 = {
          'name' => 'Hinz',
          'plz' => '12345',
          'vname' => 'Horst'
        };

$VAR1 = {
          'name' => 'Haar',
          'vname' => 'Franz'
        };

$VAR1 = {
          'name' => 'Huber',
          'plz' => '11011',
          'vname' => 'Karl-Heinz'
        };

$VAR1 = {
          'name' => 'Haar',
          'ort' => 'Erfurt',
          'plz' => '99081',
          'vname' => 'Franz'
        };

$VAR1 = {
          'name' => 'Huber',
          'vname' => 'Karl-Heinz'
        };

$VAR1 = {
          'name' => 'Kunz',
          'plz' => '55555',
          'vname' => 'Erwin'
        };

use IO::String;
my $io = IO::String->new;
# Serialize Key Value
foreach my $k( keys %ENV){
    my $v = $ENV{$k};
    $io->print( pack("NN", length $k, length $v).$k.$v );
}

# wiederherstellen
$io->seek(0,0);
my %env = ();
while( read($io, my $buffer, 8) ){
    my ($klen, $vlen) = unpack "NN", $buffer;
    read($io, my $key, $klen);
    read($io, my $val, $vlen);
    $env{$key} = $val;
}

print Dumper \%env;