print join "\n", split(/\0/, $dbm{$key}), '';

##</code><code>##

print map "$_\n", split /\0/, @dbm{sort keys %dbm};

##</code><code>##

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