[root@devel3 root]# perl test.pl
Benchmark: timing 10000000 iterations of with, without...
      with:  9 wallclock secs ( 8.64 usr +  0.00 sys =  8.64 CPU) @ 1157407.41/s (n=10000000)
   without:  4 wallclock secs ( 4.05 usr +  0.00 sys =  4.05 CPU) @ 2469135.80/s (n=10000000)
             Rate    with without
with    1157407/s      --    -53%
without 2469136/s    113%      --