foreach(@subdirs_current_dir){if($_ =~ /^($match_dir)/){print "matched ...;}}