Select Code to Download

[18:46:32.42] P:\test>junk
              Rate Ref_Named     Named  Ref_Copy     Shift       POE  
+  Normal
...
Shift     639848/s      437%      423%      248%        --       -9%  
+    -17%
POE       701269/s      488%      473%      281%       10%        --  
+     -9%
Normal    768699/s      545%      528%      318%       20%       10%  
+      --

[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});
...
    print $_;
}
-e syntax OK