# Input-Datei
open(my $input, '<', 'input_text.txt') or die;
# Suffix-Liste
open(my $suffix, '<', 'suffixe.txt') or die;
my @suffix = <$suffix>;
while(<input>){
   chomp;
   my @segmente = split(/ /, $_);
   foreach my $segment(@segmente){
	foreach my $suf(@suffix){
		chomp $suf;
		if ($segment =~ /$suf$/i) {
			print "$suf\t$segment\n";
		}
	}
   }
}