@Vocal = "a,e,i,o,u";
@konsonant = "B,C,D,F,G,H,J,K,L,M,N,P,Q,R,S,T,V,W,X,Z ";
$zufalVoc = int(rand(5));
$zufalKon = int(rand(20));