#!/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"
  }
}