$ forever time perl5.8.7 -e 'for(1..100000){$x*=2}'
        0,10 real         0,07 user         0,01 sys
        0,09 real         0,08 user         0,00 sys
        0,09 real         0,08 user         0,00 sys
        0,09 real         0,07 user         0,01 sys
        0,09 real         0,09 user         0,00 sys
        0,10 real         0,08 user         0,00 sys
        0,09 real         0,08 user         0,00 sys
        0,09 real         0,08 user         0,00 sys
        0,09 real         0,07 user         0,01 sys

$ forever time perl5.8.7t -e 'for(1..100000){$x*=2}'
        0,12 real         0,10 user         0,00 sys
        0,12 real         0,10 user         0,02 sys
        0,12 real         0,09 user         0,01 sys
        0,12 real         0,10 user         0,02 sys
        0,12 real         0,11 user         0,00 sys
        0,12 real         0,10 user         0,00 sys
        0,12 real         0,10 user         0,00 sys
        0,12 real         0,10 user         0,02 sys