#!/usr/local/bin/perl 

use strict;
use warnings;

my $datei = 'word_types.prot';     # Eingabe Datei
my $file  = 'word_types.brain';    # Ausgabe Datei

# Eingabedatei einlesen
my @zeilen = ();

open my $FILE, "<", $datei
  or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
while ( my $zeile = <$FILE> ) {
    chomp $zeile;                  # Zeilenende entfernen
    push @zeilen, $zeile;
}
close $FILE or die "konnte $datei nicht schliessen. $!\n";

# Eingelesenes nach Ausgabedatei
open $FILE, ">>", $file or die "konnte $file nicht zum Lesen oeffnen. $!\n";

foreach my $zeile (@zeilen) {
    print $FILE $zeile, ': ', "\n", 
                  " type: n " , "\n", 
                  " genus: s ", "\n";
}
close $FILE or die "konnte $file nicht schliessen. $!\n";

close($filehandle_read);

close($filehandle_write);

print $zeile . ": \n" . " type: n ";

print "$zeile:\ntype: n\n";

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);