foreach $key (keys %DOC) {
    @a = split ('\0', $DOC{$key});
    $q = join ('-', @a);
    print SAL $key ."=".$q."\n";
}