use File::Spec;
my @files = map { File::Spec->catfile( 'c:/dir', $_ ) }
    grep { ... } readdir DIR;