#!/usr/bin/perl

open (LESEN, "Vokabeln.txt")||die "Die Datei konnte nicht gefunden werden";
      $vokabeln=<LESEN>;
close (LESEN);

@vokabeln_array = split (/:+/, $vokabeln);

open (LESEN, "Loesung.txt")||die "Die Datei konnte nicht gefunden werden";
      $loesung=<LESEN>;
close (LESEN);

@loesung_array = split (/:+/, $loesung);

$#loesung_array;


require (Vokabeltrainer_Unterprogramm);