3578444.999999999534339 suggests you are running into the limits of your Perl/PC combination's floating point handling.

Your problem would be better handled with fix point arithmetic. Look at Math::BigInt.