#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use DBI;
use Data::Dumper;


#Filter-Schlagwörter Zeilenweise in ein Array einlesen
open (FILTER, "Filter.txt") or die $!;
my @filter = <FILTER>;
close (FILTER);
#print @filter;

#Mail.txt öffnen und Zeilenweise in ein Array einlesen
open (MAIL, "Email.txt") or die $!;
my @mail = <MAIL>;
close (MAIL);
#print @mail;

#Array @filter mit Array @mail vergleichen
#bei Übereinstimmung wird ein Counter +1 gesetzt und die Übereinstimmung mit Position ausgegeben (Zeile und x´tes Wort der Zeile)
#Es wird NICHT bei der ersten Übereinstimmung gestoppt