This may or may not help, but try putting a 'use integer;' at the top of your program. That should force Perl to do handle numbers as integers instead of floats.

----
Reinvent a rounder wheel.

Note: All code is untested, unless otherwise stated