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

##</code><code>##

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);