foreach my $file (map { m,/, ? $_ : "$dir/$_" } @filelist) {