foreach $key (keys%wordcounter){

	my $keyword = Word->new($key);
        # ... hier passieren noch einige nicht relevante Dinge

	push @keywords, $keyword;	
	print "Test: ".$keyword->getName()."\n";

}

foreach my $wd(@keywords){
	print "Test: ".$wd->getName()."\n"; 
}