foreach my $key (sort keys %dbm)
{
     print join("\n", split(/\0/, $dbm{$key})), "\n";
}