VERSION 1

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



VERSION 2

     1	foreach $key (keys %delete_list) {
     2	  my $dir = $build_photo_path;
     3	  my (@files) = ();
     4	  &header;
     5	  opendir(DIR, $dir) || &err("can't open : $!");          
     6	  @files = grep { /$key\.*/i } readdir(DIR);
     7	  closedir(DIR);
     8	  if ($#files > -1) {
     9	    foreach (@files) {
    10	      unlink("$dir/$_") || &err("can't delete $_ : $!");
    11	    }
    12	  }
    13	}


VERSION 3

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