Select Code to Download

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

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

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