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

##</code><code>##

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