This is perl, v5.8.0 built for MSWin32-x86-multi-thread

          Rate     map foreach
map     1705/s      --    -25%
foreach 2288/s     34%      --