First of all it is Perl, not PERL.

Secondly, Perl treats floats just like C does. The difference is that it is constantly going one way in the above code, and you are printing a higher resolution.

Try using a printf to format your output to something less than one part in a hundred trillion accuracy, and see how much longer it takes for the round-off error to become visible.