Someone mentioned some years ago that 10**x is the same thing as (5**x)<<x. Could perl use this fact in some way to get better results?