Can someone tell me what I'm doing wrong with my perl script? I am new to Perl. This isn't even the final script, I'm just testing to see if it will print the directories with the files in it. For some reason my output is only printing the 1st, 6th, and last entries of the @sub_dir array. Each of the sub_dir folders has 4 test files in it (Test1-4.txt).

My intent is to ultimately copy multiple files from source to destination--since perl won't let me do it as easily as in shell. TIA

#!perl.exe

use strict;
use File::Copy;

my @sub_dir = ("sqr","src","user","nvision","winword","crw","excel","maint","projects","scripts","data");
my $source = "C:\\Test";
my $destination = "C:\\Test2";

foreach (@sub_dir) 
   {
   my $dir1 = glob($source . "\\" . $_ . "\\*");
   my $dir2 = glob($destination . "\\" . $_);
   
   print "$dir1\n";
   }