#!/usr/bin/perl
    use strict;
    use warnings;
     
    use Tie::File;
     
    my @testitems = qw(Wort1, Wort2, wort3, wort4);  
    my $filename = 'result_2.csv'; 
    my %result; 
    #my $regexp = "(". join('|', map {uc($_)} @words) 
    tie my @array, 'Tie::File', $filename or die "$!\n"; 
    foreach my $item (@testitems) {
     $result{$item} = grep {/(^|[\s.;])$item([\s.;]|$)/i} @array; 
    }
    untie @array;
     
    print "items found: ";
    foreach my $item (@testitems) {
     print "$item " if ($result{$item});
    }
    print "\n";