chdir($DIRECTORY);
opendir(DIR,"$DIRECTORY");
while( my $datei = readdir(DIR) ) {
  open(FILE, "$datei") or die;
  my @status=funktionsaufruf();
  close(FILE);
  if($status[0] =~ m/matching/) {
    #...mache was
  }
}
closedir(DIR);

...
if(($status[0] =~ /^match$/) && ($status[1] == 5) ) {
  ...
}
...

...
if(($status[0] and $status[0] =~ /^match$/) && ($status[1] and $status[1] == 5) ) {
  ...
}
...