foreach my $subdir ( sort @subdirs ) {

chdir($dir);
next unless -d $subdir;
...