#!/usr/bin/perl

use strict;
use warnings;

... 

while ($durchgaenge<($anzahl_loesung+1)){
my$vokabel = $vokabeln_array[$zahl];
#$zahl=0+rand($anzahl_vokabeln);

if(exists ($schon_gefragt{my$vokabel}) )  {
next;
}
else {
...