my ($zahl1, $zahl2) = (8,9);

my ($ergebnis,$zahl1teiler,$zahl2teiler) = (1, 0.2, 0.3);

while ($zahl1teiler !~ /^\d+$/ || $zahl2teiler !~ /^\d+$/) {
        $zahl1teiler = $ergebnis/$zahl1;
        $zahl2teiler = $ergebnis/$zahl2;
        $ergebnis++;
}

$ergebnis = $ergebnis - 1;

print "Das kleinste gemeinsame Vielfache ist: $ergebnis\n"