readdir ($DIR);    # ignore .
   readdir ($DIR);    # ignore ..

##</code><code>##

  @files = grep {/^(?!\.{1,2}\z)/} readdir($DIR);