[18:46:32.42] P:\test>junk
              Rate Ref_Named     Named  Ref_Copy     Shift       POE    Normal
Ref_Named 119185/s        --       -3%      -35%      -81%      -83%      -84%
Named     122333/s        3%        --      -34%      -81%      -83%      -84%
Ref_Copy  183991/s       54%       50%        --      -71%      -74%      -76%
Shift     639848/s      437%      423%      248%        --       -9%      -17%
POE       701269/s      488%      473%      281%       10%        --       -9%
Normal    768699/s      545%      528%      318%       20%       10%        --

##</code><code>##

[18:43:58.10] P:\test>perl -MO=Deparse -e"use constant{ONE=>1,TWO=>2}; for( ONE .. TWO) { print }"
use constant ({'ONE', 1, 'TWO', 2});
foreach $_ (1 .. 2) {
    print $_;
}
-e syntax OK