# Everything that doesn't begin with . or .. (better!)
my @e = grep { ! /^\.\.?$/ } readdir(DH);