my $cache = freeze [ map "$_\n", split /\0/, @dbm{sort keys %dbm} ];