in reply to finding the correct integer
The "%f" format does rounding to the specified precision. In this case use:
print sprintf("%4.0f\n", 0.6505 / 0.0001);
OUTPUT:
6505
Bill
In Section
Seekers of Perl Wisdom