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