my $anzahl=3;
my $max=100;
my @zahlen=( int(rand($max)) );
my $summe=$zahlen[0];
while($#zahlen<$anzahl)
{
  push(@zahlen, int(rand($max-$summe)));
  $summe+=$zahlen[-1];
}
push(@zahlen,$max-$summe);
print "@zahlen\n";