my $bis=100;
my $menge=3;
my $nullen=$menge;

for (1..100) {
	my @zahlen=( (0)x$nullen, (1)x$bis );
	$zahlen[ int( rand( $#zahlen ) ) ]+=pop(@zahlen) while(@zahlen>$menge);
	print "@zahlen \n" if grep {/^0$/} @zahlen;
}