The Result

The only other change I want to make is to get rid of $dir
- It is always identical to $build_photo_path

        opendir(DIR, $build_photo_path) || &err("can't open $build_photo_path: $!"); 
        @all_files = readdir(DIR);
        closedir(DIR);

        foreach $key (keys %delete_list) {
          &header;
          foreach (grep { /^$key\./i } @all_files) {
            unlink("$build_photo_path/$_") || &err("can't delete $_ : $!");
          }
        }

This is delfiles3.pl in the notes