opendir(DIR, "$somedir") or die $!;
my @dir = readdir(DIR);
foreach my $dirEntry (@dir){
  if(&SOME_TEST($dirEntry)){
    unlink $dirEntry;
    unlink $dirEntryPair;
    @dir = readdir(DIR);
  }
}
closedir(DIR);