$dir=File::Spec->catdir("\'$dir\'");

##</code><code>##

for my $dir ( <@{ $HoA{$server} }> ) {