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

$zahl=0+rand(3);

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

print SCHREIB $eingabe;

my @alle_versuche;
while ($durchgaenge<($#loesung_array+1))
{

$zahl=0+rand(3);


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

print SCHREIB join "\n", @alle_versuche;