foreach my $dirEntry (@dir){
  if(&SOME_TEST($dirEntry)){
    ...
    @dir = readdir(DIR);
  }
}