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