my %schon_gefragt = ();
# ...
while ($durchgaenge<($anzahl_loesung+1)) {
    my $vokabel = $vokabeln_array[$zahl];
    # hier prüfen
    if( exists($schon_gefragt{$vokabel}) ) {
        # ... hier noch die ganzen Zähler berücksichtigen
        # + aufpassen, dass keine Endlosschleife entsteht
        next; # überspringe diese Vokabel
    }
    # ...
    if ($eingabe eq $loesung_array[$zahl])     {
        print"The translation is correct!\n";
        $schon_gefragt{vokabel} = 1; # hier merken
        $durchgaenge++;
    }
}