use File::Glob qw(:globally :nocase);
# instead of if(-f $file) {
if(<$file>) {