Wenn die kleinen Zahlen eine feste Anzahl Nachkommastellen haben, dann kann man auch "Math::BigInt" nutzen und alle kleinen zahlen mit "10**$Anzahl_Nachkommastellen" multiplizieren und zum Schluss dividieren. Damit bekommt man weniger Probleme mit den Fließkommawerten.