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