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