while ($durchgaenge<($#loesung_array+1))
{

$zahl=0+rand(3);

print"Translate the word $vokabeln_array[$zahl]\n";
$eingabe = <STDIN>;    chomp $eingabe;
...

print SCHREIB $eingabe;