# hash that counts appearance of a word
my %wordcounter;

# collected words
foreach (@words){
if (length $_ >= 2){
chomp $_;                       # remove newline
$_ =~ s/[!:.,?()#]//g;    # remove possible symbols
#print $_."\n";

# increase wordcounter
$wordcounter{$_}++;
};      
}

my $position;
my @keywords;
my $keyword;

# print out words from wordcounter
foreach $key (keys%wordcounter){
        
        foreach(@blacklists){
        # check if a word is blacklistet
        # if it is not, all positions that have been found in the file are recorded
        if ($_->validate($key)){
                $keyword = HTML_Indexer::Word->new($key);
                
                # save all positions
                #for(1..$wordcounter{$key}){
                #               #print $key." : ".$wordcounter{$key}."\n";
                #               $position = new HTML_Indexer::Position($filename, $anchorid);
                #               $keyword->addPosition($position);       
                #       }
                        
                push @keywords, $keyword;       
                print "Test: ".$keyword->getName()."\n";
                }
        else {
                        print $key." : BLACKLISTED \n";
                }
        }
}

# Testoutput => Hier tritt der Fehler auf!
foreach my $wd(@keywords){
        print "Test: ".$wd->getName()."\n"; #output is alway @_ ??;
}