$dir = 'c:';
@files = grep{-f $_}glob("$dir/*");