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