N1. 0.1041...  =>  10
N2. 0.4076...  =>  30
N3. Rest       =>  60
=================
                  100

my $summe;
$summe += $_ for @zahlen;

my $summe = [+] @zahlen;

#!/usr/bin/perl

use strict;
use warnings;

my $sum;

while($sum != 100) {
  my $zahl1 = int rand(100);
  my $zahl2 = int rand(100);
  my $zahl3 = int rand(100);

  $sum = ($zahl1 + $zahl2 + $zahl3);

  if($sum == 100) {
    print "\t" . "=>" . "$zahl1 " . "$zahl2 " .  "$zahl3"
  }
}

#!/usr/bin/perl

use strict;
use warnings;

sub random {
  my $rand_count = shift;
  my @values;

  for (0 .. $rand_count-1) {
    push @values, rand(100);
  }

  for my $i (0 .. $rand_count-1) {
     print $values[$i], "\n"
  }
}

random(5);

for $i (0..100) { 
   for $j (0..100) { 
     for $k (0..100) { 
        $c++; 
        $s=$i+$j+$k; 
        $d++ if $s<=100
   }}}
print $d/$c;