Even clearer would be:

my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
[download]

yours,
Michael

Credit to Dominus' Program Repair Shop...