in reply to how to always round up in perl?