my @files = readdir($dirhandle);

##</code><code>##

my @files = grep { -f } map { "$dir/$_" } readdir($dirhandle);