my $Dir1 = "d:/xxxxxx";
my $Dir2 = "d:/yyyyyy";
my @files = glob ("$Dir1/*");
for my $file (glob "$Dir2/*" ) {
    push @files, $file;
}
for my $file (@file) {
    print $file, "\n"
}