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