For what it's worth, ActivePerl prints 1 2 2 2 3 3. In other words, it uses "round half away from zero" (languages, and even different compilers and interpreters for the same language, are inconsistent in this regard -- see my article http://www.exploringbinary.com/inconsistent-rounding-of-printed-floating-point-numbers/).