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 $_ : $!");
  }
}