This is perl, v5.8.6 built for i686-linux

           Rate foreach     map
foreach 47168/s      --     -2%
map     48260/s      2%      --