while (my $line = <$loesung_FH>) {
    chomp $line;
    # $. ist die aktuelle zeilennummer
    # setze also den wert zu der zugehörigen zeile aus dem vokabel-array
    $vokabeln{ $vokabeln_array[$. - 1] } = $line;
}