# zeile 7:
# Ausgabepfad
# sollte ein gesondertes Verzeichnis ein.
my $out_dir='path/to/dir';

  # Ersatz für Zeile 22:
  # alle Funde durchgehen,
  # passende Datei öffen
  # und Zeile hinzufügen.
  for my $e (@found)
  {
    my ($motive1,$motive2)= sort @$e[0,1];
    my $outpath="$out_dir/$motive1_$motive2.txt";

    if(open(my $fh, '>>', $outpath))
    { printf $fh ("%s + %s found in Line %u and Line %u + %s\n", @$e,$file); }
    else
    { warn("Error open $outpath ($!)"); }
  }