use YAML::XS;
open my $fh, "<", "woerter.txt" or die $!;
chomp(my @wordlist = <$fh>);

my %words;
for my $word (@wordlist) {
    $words{ $word } = { type => 'n', genus => 's' };
}
print Dump(\%words);