perl - Tie::LevelDB 发生了什么？它会自动压缩数据库吗？

Question

我正在Tie::LevelDB使用随机创建的数据库进行测试，

tie my %hash, 'Tie::LevelDB', "/run/shm/testdb";
for ( 1 .. 10000 )
{
    my $key = '/123/' x 55 . $_;
    my $val = { 
        ctime => 123,
        mtime => 123
    };

    $hash{$key} = freeze ($val);
} 

say $_ for keys %hash;

脚本完成后，我检查了总共的磁盘/run/shm/testdb空间3.3 MB。

然后我注释掉了for ( 1 .. 10000 )循环，只做了say部分，我testdb再次检查了文件夹，它只需要156 KB现在！

很奇怪，对吧？谁能向我解释一下？我没有遭受数据丢失。