# lc the filenames and create a set of filespecs from them. my @filespecs=map{ $_=lc($_); File::Spec->joinpath($path,$_) } @files;