...
    tie %database, ...
    ...
    $database{$h->{id}} = $dump;
    ...