my $erg = int ($zahlA / $zahlB);