# zeile 7:
# Liste aller Kombinationen über alle Dateien
my %anzahl;

#...

  #zeile 21:
  # alle Gefunden Kombinationen durch gehen
  # dann die Suchbegriffe mit "-!-" zusammenfügen
  # und dazu einen Zähler erhöhen
  # "sort" verhindert unnötige Dubletten
  $anzahl{join('-!-', sort @$_[0,1] )}++ for(@found);

#...

# zeile 25:
# Zusammenfassung:
printf ("%s + %s %u\n",split(/-!-/,$_),$all_match{$_}) for(sort keys(%anzahl));