foreach my $dir(@dirs){
mkpath("$to/$dir");
}

##</code><code>##

mkpath(@dirs);

##</code><code>##

find (sub {push @dirs => $to . '/' . $File::Find::name if -d},$from);