I normally use grep for this:

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