sub Lottozahlen ##### Zufallsziehung
{
$rz=":";
#-----------
while($i < 7) 
{
  $Ziehung[$i] = int(rand(49) + 1);
  $z=$Ziehung[$i];
  if($rz =~ /:$z:/)  
  {
  undef($Ziehung[$i]); 
  #---- doppelte Zufallszahl ausschließen
  }
  else
  {
  $rz.="$z:";  
  $i++;
  }
}
}###################################