my $gefunden;
foreach my $i (0..$#fehler-2) {
  if ( $fehler[$i]   eq $row->[0] &&
       $fehler[$i+1] eq $row->[1] &&
       $fehler[$i+2] eq $row->[2]
     ) { $gefunden = 1; last }
}
if ( $gefunden ) {...}