#!/usr/bin/perl -w
# markus westphal 24.05.2005

use strict;
my ($s1,$s2,$s3,@ar,$z);
#Zufallszahlen test
srand;

for($s3=0;$s3 <= 10000; $s3++){
$ar[$s3]=int(rand(101));#zahlenbereich 0 - 100
}
for($s1=0;$s1 <= 100; $s1++){
    $z=0;
    for($s2=0;$s2 <=10000; $s2++){
	if($s1 eq $ar[$s2]){
	    $z=$z+1;
	}
}
printf(STDOUT "Die Zahl %d kommt %d mal vor\n",$s1,$z);
}