$dest =~ s/\//\\/g;
# Rewritten:
$dest =~ s#/#\\#g; # Singular character
$dest =~ s{/}{\\}g; # Paired characters

##</code><code>##

@sortedarraydirectory = @arraydirectory;
@sortedarraydirectory = sort @sortedarraydirectory
# Change to 1 command:
@sortedarraydirectory = sort @arraydirectory;