my $welches_zeichen = $zeichen[ rand @zeichen ];