Select Code to Download

use Benchmark qw/cmpthese/;
my $lim = 1000;
...
    for          73%      --     -3%     -6%
    FOREACH      78%      3%      --     -4%
    foreach      84%      7%      4%      --