foreach $key (keys %delete_list) {
  my $dir = $build_photo_path;
  my (@files) = ();
  &header;
  opendir(DIR, $dir) || &err("can't open : $!");          
  @files = grep { /$key\.*/i } readdir(DIR);
  closedir(DIR);
  if ($#files > -1) {
    foreach (@files) {
      unlink("$dir/$_") || &err("can't delete $_ : $!");
    }
  }
}