in reply to While loop;s different behavior
See also the standard "Why can't Perl do math right?" link What Every Computer Scientist Should Know About Floating-Point Arithmetic.
Give a man a fish: <%-{-{-{-<