my @files = readdir(DIR); # you may want to grep only certain files here
#I think you need something like:
my @files = grep{-f "$dir/$_"} readdir(DIR);