#!/usr/bin/perl

use strict;
use warnings;

my @list;

open(my $root, "root.txt") or die "kann das Lexikon nicht öffnen: $!";
open(my $begriff, "begriff.txt") or die "kann das Lexikon nicht öffnen: $!";

while(<$begriff>){
	chomp;
	push @list, $_;
}

while(<$root>){
    chomp;
    my $lex = $_;
    foreach my $string(@list){
		if($string =~ /^(.*)$lex$/i){
			print "$string\t$1\t$lex\n";
                        #um zu verhindern, ABCabcd ABCa bcd
			@list = grep !/$string/, @list;
		}
	}
}
print "REST : @list\n";