my @subdirs = readdir($dh);

##</code><code>##

my @subdirs = grep { /^\.\.?\z/ } readdir($dh);