foreach my $subdir (my @dirlist) { 
#...